aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/compiler.boot5
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]