diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-12-17 20:49:23 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-12-17 23:09:51 -0800 |
| commit | 420d3d420afd34c18f04a80cc97ad1e7252b7c88 (patch) | |
| tree | 9348d687152da7144f5ab068e6b4554375cbf626 | |
| parent | 7c7d7d22a7f44f170bc407cd7c19034183a187d3 (diff) | |
| download | mu-420d3d420afd34c18f04a80cc97ad1e7252b7c88.tar.gz | |
438 - unbelievable typo
| -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") |