diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-08-16 15:01:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-08-16 15:01:06 +0000 |
| commit | 03c927810fa1ac7d83ee72f1886645b310904646 (patch) | |
| tree | a2d962b7fcf7e2e7e631939ac5db48c437d5c71e /src/interp | |
| parent | ab480e7c03c9f3ab95856eaff6e6493882ff0c36 (diff) | |
| download | open-axiom-03c927810fa1ac7d83ee72f1886645b310904646.tar.gz | |
* interp/compiler.boot (compAtom): Don't single out "nil".
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 0689649a..baea9aa2 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -400,11 +400,6 @@ compAtom(x,m,e) == x = "break" => compBreak(x,m,e) x = "iterate" => compIterate(x,m,e) T:= compAtomWithModemap(x,m,e,get(x,"modemap",e)) => T - x="nil" => - T:= - modeIsAggregateOf('List,m,e) is [.,R] => compList(x,['List,R],e) - return nil - convert(T,m) t:= isSymbol x => compSymbol(x,m,e) or return nil member(m,$IOFormDomains) and primitiveType x => [x,m,e] |