aboutsummaryrefslogtreecommitdiff
path: root/src/boot/translator.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/translator.boot')
-rw-r--r--src/boot/translator.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index ff7f2840..679bfafd 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -330,7 +330,7 @@ shoeFileLine(x, stream) ==
shoeFileTrees(s,st)==
while not bStreamNull s repeat
a:= first s
- if EQCAR (a,"+LINE")
+ if a is ["+LINE",:.]
then shoeFileLine(second a,st)
else
REALLYPRETTYPRINT(a,st)