diff options
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index c49c8209..502c0c02 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -397,7 +397,7 @@ translateToplevelExpression expr == -- at toplevel. for t in expr' repeat t is ["DECLARE",:.] => - RPLACA(t,"DECLAIM") + t.first := "DECLAIM" expr' := #expr' > 1 => ["PROGN",:expr'] first expr' |