Merge pull request #135 from orodley/rplac-fix

RPLAC[AD] should return their first argument, not the second

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 1c0bad1..51fb547 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1003,10 +1003,16 @@
                 (get tmp "cdr")))))
 
 (define-builtin rplaca (x new)
-  `(= (get ,x "car") ,new))
+  `(selfcall
+     (var (tmp ,x))
+     (= (get tmp "car") ,new)
+     (return tmp)))
 
 (define-builtin rplacd (x new)
-  `(= (get ,x "cdr") ,new))
+  `(selfcall
+     (var (tmp ,x))
+     (= (get tmp "cdr") ,new)
+     (return tmp)))
 
 (define-builtin symbolp (x)
   `(bool (instanceof ,x |Symbol|)))