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-28 21:17:09 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-10-29 00:05:16 -0700
commita7b73b8cd7a9ba12b34574758154ab23fd400783 (patch)
treeb1f26ff1d6c79aaced8ef0b4f559bd3751987c38 /mu.arc.t
parent61c82b8e8f63cd89c923b0246fc5bee2d1be951d (diff)
downloadmu-a7b73b8cd7a9ba12b34574758154ab23fd400783.tar.gz
161
Diffstat (limited to 'mu.arc.t')
-rw-r--r--mu.arc.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/mu.arc.t b/mu.arc.t
index c2687f9b..8009ad28 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -452,7 +452,7 @@
 (add-fns
   '((main
       ((1 integer) <- copy (34 literal))
-      ((2 integer) <- copy (t literal))
+      ((2 boolean) <- copy (t literal))
       ((3 boolean-address) <- get-address (1 integer-boolean-pair) (1 offset)))))
 (run 'main)
 ;? (prn memory*)
@@ -464,7 +464,7 @@
 (add-fns
   '((main
       ((1 integer) <- copy (34 literal))
-      ((2 integer) <- copy (t literal))
+      ((2 boolean) <- copy (t literal))
       ((3 integer-boolean-pair-address) <- copy (1 literal))
       ((4 boolean-address) <- get-address (3 integer-boolean-pair-address deref) (1 offset)))))
 (run 'main)