From 03c927810fa1ac7d83ee72f1886645b310904646 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 16 Aug 2009 15:01:06 +0000 Subject: * interp/compiler.boot (compAtom): Don't single out "nil". --- src/ChangeLog | 4 ++++ src/interp/compiler.boot | 5 ----- 2 files changed, 4 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index f026d6c8..f9eca4ff 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-08-16 Gabriel Dos Reis + + * interp/compiler.boot (compAtom): Don't single out "nil". + 2009-08-16 Gabriel Dos Reis * interp/i-map.boot (addMap): Fix typo from last commit. 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] -- cgit v1.2.3