diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r-- | src/interp/lisp-backend.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index e992553c..0fbb0f33 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -163,7 +163,7 @@ expandCollect ['%collect,:iters,body] == -- Initialize the variable holding the result; expand as -- if ordinary loop. But don't forget we built the result -- in reverse order. - expandLoop ['%loop,:iters,["%init",val,nil],body,["NREVERSE",val]] + expandLoop ['%loop,:iters,["%init",val,nil],body,["reverse!",val]] expandList(x is ['%list,:args]) == args := [expandToVMForm arg for arg in args] @@ -563,7 +563,7 @@ for x in [ ['%lfirst, :'CAR], ['%llength, :'LIST_-LENGTH], ['%lreverse, :'REVERSE], - ['%lreverse!, :'NREVERSE], + ['%lreverse!, :'reverse!], ['%lsecond, :'CADR], ['%lthird, :'CADDR], ['%pair?, :'CONSP], |