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-24 11:36:38 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-10-24 11:36:38 -0700
commit4a0751d80b8b4ab9832a7b35ea796ceca8a0358b (patch)
tree1647bd2f18d9f1e500017deff31573a4e0f6ef98 /mu.arc.t
parentd245bbb6b2caeded06f0e7800b8f976cf6b0def1 (diff)
downloadmu-4a0751d80b8b4ab9832a7b35ea796ceca8a0358b.tar.gz
155
Diffstat (limited to 'mu.arc.t')
-rw-r--r--mu.arc.t7
1 files changed, 5 insertions, 2 deletions
diff --git a/mu.arc.t b/mu.arc.t
index 0e57a598..c17f248d 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -702,7 +702,9 @@
       ((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)))))
+      ((9 location deref) <- copy (t literal))
+      ((10 list-address) <- get (6 list-address deref) (1 offset))
+      )))
 (let first Memory-in-use-until
   (run 'test1)
 ;?   (prn memory*)
@@ -716,7 +718,8 @@
             (~all second (map memory* '(6 7 8)))
             (~is memory*.second 'boolean)
             (~is memory*.9 (+ second 1))
-            (~is (memory* (+ second 1)) t)))
+            (~is (memory* (+ second 1)) t)
+            (~is memory*.10 nil)))
     (prn "F - 'list' constructs a heterogeneous list, which can contain elements of different types")))
 (add-fns
   '((test2