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.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index c8d9452f..0b4a196c 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -706,7 +706,7 @@ BOOTLOOP() ==
stream:= _*TERMINAL_-IO_*
PSTTOMC bRgen stream
BOOTLOOP()
- a.0 = char "]" => nil
+ stringChar(a,0) = char "]" => nil
PSTTOMC [a]
BOOTLOOP()
@@ -720,7 +720,7 @@ BOOTPO() ==
stream:= _*TERMINAL_-IO_*
PSTOUT bRgen stream
BOOTPO()
- a.0 = char "]" => nil
+ stringChar(a,0) = char "]" => nil
PSTOUT [a]
BOOTPO()