diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-06 19:01:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-06 19:01:28 +0000 |
| commit | 2a44af7ae10c039f26cea6767df41d73a3d795a0 (patch) | |
| tree | ea0a1a09f33c641629ec781a04da3d5da9856439 /src/boot/translator.boot | |
| parent | af2310049a0f3c28da1b53ef0b667da77d9d7b9d (diff) | |
| download | open-axiom-2a44af7ae10c039f26cea6767df41d73a3d795a0.tar.gz | |
cleanup
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index e9d720a2..0aec8e92 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -421,7 +421,7 @@ exportNames ns == [inAllContexts ["EXPORT",quote ns]] translateToplevel(b,export?) == - atom b => [b] -- generally happens in interactive mode. + b isnt [.,:.] => [b] -- generally happens in interactive mode. b is ["TUPLE",:xs] => coreError '"invalid AST" case b of %Signature(op,t) => [genDeclaration(op,t)] @@ -560,7 +560,7 @@ defuse(e,x)== tableValue($bootUsed,i) := [nee,:tableValue($bootUsed,i)] defuse1(e,y)== - atom y => + y isnt [.,:.] => symbol? y => $used:= symbolMember?(y,e)=>$used @@ -587,7 +587,7 @@ defSeparate x== unfluidlist x== x = nil => [] - atom x => [x] + x isnt [.,:.] => [x] x is ["&REST",y]=> [y] [first x,:unfluidlist rest x] @@ -650,7 +650,7 @@ shoeItem (str)== [[[first line for line in shoeDQlines dq]],:rest str] stripm (x,pk,bt)== - atom x => + x isnt [.,:.] => symbol? x => symbolScope x = bt => makeSymbol(symbolName x,pk) x |