about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--mu.arc1
-rw-r--r--mu.arc.t2
2 files changed, 2 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc
index ab1bc05a..79caa881 100644
--- a/mu.arc
+++ b/mu.arc
@@ -58,6 +58,7 @@
               location (obj size 1)
               integer (obj size 1)
               boolean (obj size 1)
+              boolean-address (obj size 1  address t)
               byte (obj size 1)
 ;?               string (obj array t  elem 'byte)  ; inspired by Go
               char (obj size 1)  ; int32 like a Go rune
diff --git a/mu.arc.t b/mu.arc.t
index 19e82d75..0e82da57 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -426,7 +426,7 @@
   '((main
       ((1 integer) <- literal 34)
       ((2 integer) <- literal t)
-      ((3 integer-boolean-pair-address) <- get-address (1 integer-point-pair) (1 offset)))))
+      ((3 boolean-address) <- get-address (1 integer-boolean-pair) (1 offset)))))
 (run 'main)
 ;? (prn memory*)
 (if (~iso memory* (obj 1 34  2 t  3 2))