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 | |
| parent | ab480e7c03c9f3ab95856eaff6e6493882ff0c36 (diff) | |
| download | open-axiom-03c927810fa1ac7d83ee72f1886645b310904646.tar.gz | |
* interp/compiler.boot (compAtom): Don't single out "nil".
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/compiler.boot | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index f026d6c8..f9eca4ff 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2009-08-16 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/compiler.boot (compAtom): Don't single out "nil". + +2009-08-16 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/i-map.boot (addMap): Fix typo from last commit. * interp/compiler.boot (compElt): Fix thinko, one more time. * interp/nruncomp.boot (optDeltaEntry): Don't overquote VM forms 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] |