diff options
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index e0de5ef5..c350bd7c 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -578,12 +578,12 @@ defuse1(e,y)== defusebuiltin y =>$used UNION([y],$used) [] - y is ["LAMBDA",a,:b]=> defuse1 (append(unfluidlist a,e),b) + y is ["LAMBDA",a,:b] => defuse1([:unfluidlist a,:e],b) y is ["PROG",a,:b]=> [dol,ndol]:=defSeparate a for i in dol repeat tableValue($bootDefined,i) := true - defuse1 (append(ndol,e),b) + defuse1([:ndol,:e],b) y is ['QUOTE,:a] => [] y is ["+LINE",:a] => [] for i in y repeat defuse1(e,i) |