diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-24 11:36:38 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-24 11:36:38 -0700 |
commit | 4a0751d80b8b4ab9832a7b35ea796ceca8a0358b (patch) | |
tree | 1647bd2f18d9f1e500017deff31573a4e0f6ef98 /mu.arc.t | |
parent | d245bbb6b2caeded06f0e7800b8f976cf6b0def1 (diff) | |
download | mu-4a0751d80b8b4ab9832a7b35ea796ceca8a0358b.tar.gz |
155
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 7 |
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 |