about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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)