diff options
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index c9b691b7..8a8a955e 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -800,7 +800,7 @@ isInterpMacro name == (m := get("--macros--",name,$e)) => m (m := get("--macros--",name,$InteractiveFrame)) => m -- $InterpreterMacroAlist will probably be phased out soon - (sv := assoc(name,$InterpreterMacroAlist)) => CONS(NIL,rest sv) + (sv := assoc(name,$InterpreterMacroAlist)) => [NIL,:rest sv] NIL --% Handlers for prefix QUOTE @@ -1175,7 +1175,7 @@ copyHack(env) == -- (localModemap . something) c:= CAAR env d:= [fn p for p in c] where fn(p) == - CONS(first p,[(q is ["localModemap",:.] => q; copy q) for q in rest p]) + [first p,:[(q is ["localModemap",:.] => q; copy q) for q in rest p]] [[d]] |