diff options
| -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] |