diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-30 19:40:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-30 19:40:36 +0000 |
| commit | 96a0d6b9d7002c6ced564c398eb9b576f1c85119 (patch) | |
| tree | 8c33fb608e2b2e78da65ac09a65ff7858009e19a /src/boot/translator.boot | |
| parent | b6ff648a69b67216b55b58c4ae8374fcfea7bce2 (diff) | |
| download | open-axiom-96a0d6b9d7002c6ced564c398eb9b576f1c85119.tar.gz | |
misc cleanup
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) |