about summary refs log tree commit diff stats
path: root/mu.arc.t
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-10-12 14:32:23 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-10-12 14:32:47 -0700
commit1bfb7c1090f96b6d5bf8ac1a13aee0af7f34bfa1 (patch)
tree51a6445620975f6aad52f385d4f8dd51fc74550e /mu.arc.t
parent0c9f837918fd40395cda3efe6965ed7c9d980511 (diff)
downloadmu-1bfb7c1090f96b6d5bf8ac1a13aee0af7f34bfa1.tar.gz
143
Diffstat (limited to 'mu.arc.t')
-rw-r--r--mu.arc.t14
1 files changed, 7 insertions, 7 deletions
diff --git a/mu.arc.t b/mu.arc.t
index b4f9cf3f..68759fe2 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -698,11 +698,11 @@
       ((5 list-address-address deref) <- new (list type))
       ; 6 points at second node: tagged-value (boolean t)
       ((6 list-address) <- copy (5 list-address-address deref))
-      ((7 tagged-value-address) <- get-address (6 list-address deref) (0 offset))
-      ((7 type-address) <- get-address (6 tagged-value-address deref) (0 offset))
-      ((7 type-address deref) <- copy (boolean literal))
-      ((8 location) <- get-address (6 tagged-value-address deref) (1 offset))
-      ((8 location deref) <- copy (t literal)))))
+      ((7 tagged-value-address) <- list-value-address (6 list-address))
+      ((8 type-address) <- get-address (7 tagged-value-address deref) (0 offset))
+      ((8 type-address deref) <- copy (boolean literal))
+      ((9 location) <- get-address (7 tagged-value-address deref) (1 offset))
+      ((9 location deref) <- copy (t literal)))))
 (let first Memory-in-use-until
   (run 'test1)
 ;?   (prn memory*)
@@ -713,9 +713,9 @@
           (~is memory*.5 (+ first 2))
           (let second memory*.6
             (~is (memory* (+ first 2)) second)
-            (~is memory*.7 second)
+            (~all second (map memory* '(6 7 8)))
             (~is memory*.second 'boolean)
-            (~is memory*.8 (+ second 1))
+            (~is memory*.9 (+ second 1))
             (~is (memory* (+ second 1)) t)))
     (prn "F - 'list' constructs a heterogeneous list, which can contain elements of different types")))