diff options
-rw-r--r-- | mu.arc | 2 | ||||
-rw-r--r-- | mu.arc.t | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index d027a3a2..09b20f27 100644 --- 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 diff --git a/mu.arc.t b/mu.arc.t index 89712d25..11458f31 100644 --- 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") |