diff options
Diffstat (limited to 'src/boot/pile.boot')
| -rw-r--r-- | src/boot/pile.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/pile.boot b/src/boot/pile.boot index 52bebdea..9f9fcd96 100644 --- a/src/boot/pile.boot +++ b/src/boot/pile.boot @@ -109,7 +109,7 @@ shoePileCoagulate(a,b)== d := second a e := shoeTokPart d d is ["KEY",:.] and - (GET(e,"SHOEINF") or e = "COMMA" or e = "SEMICOLON") => + (e has SHOEINF or e = "COMMA" or e = "SEMICOLON") => shoePileCoagulate(dqAppend(a,c),rest b) cons(a,shoePileCoagulate(c,rest b)) |