438 - unbelievable typo

2014-12-17 20:49:23 -08:00 · 2014-12-17 20:49:23 -08:00 · 420d3d420a
parent 7c7d7d22a7
commit 420d3d420a
2 changed files with 7 additions and 1 deletions
--- a/mu.arc
+++ b/mu.arc
@ -717,7 +717,7 @@
  (when acons.x  ; proper lists only
    (if (testify.f car.x)
      cdr.x
-      (cons car.x (drop-one f x)))))
+      (cons car.x (drop-one f cdr.x)))))

 ; memory allocation

--- a/mu.arc.t
+++ b/mu.arc.t
@ -3410,6 +3410,12 @@
                         (deref)
                         (deref))))
  (prn "F - 'deref' can be chained"))
+(if (~iso '((5 integer) (foo))
+          (deref:deref '((3 integer-address-address)
+                         (deref)
+                         (foo)
+                         (deref))))
+  (prn "F - 'deref' skips junk"))

 ; addr
 (prn "addr")