about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-08-26 11:52:16 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-08-26 11:52:16 -0700
commit91226d7c76e8139591a53e245a1fa94c7856ad6d (patch)
treea7eb694cfb1ecc67a2edd8daedf4dd756acc8f6d
parent817b7e0be0ee00d94675aff4471838c2f8e60ebb (diff)
downloadmu-91226d7c76e8139591a53e245a1fa94c7856ad6d.tar.gz
76
-rw-r--r--mu.arc6
1 files changed, 5 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc
index 9a642ff2..2715ffc7 100644
--- a/mu.arc
+++ b/mu.arc
@@ -16,7 +16,11 @@
 (def clear ()
   (= types* (obj
               ; must be scalar or array, sum or product or primitive
-              type (obj size 5  record t  elems '(integer boolean boolean boolean type-array))
+              type (obj size 1)
+              type-array (obj array t  elem 'type)
+              typeinfo (obj size 5  record t  elems '(integer boolean boolean boolean type-array))
+              typeinfo-address (obj size 1  address t  elem 'typeinfo)
+              typeinfo-address-array (obj array t  elem 'typeinfo-address)
               location (obj size 1)
               integer (obj size 1)
               boolean (obj size 1)