diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-08-26 11:52:16 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-08-26 11:52:16 -0700 |
| commit | 91226d7c76e8139591a53e245a1fa94c7856ad6d (patch) | |
| tree | a7eb694cfb1ecc67a2edd8daedf4dd756acc8f6d | |
| parent | 817b7e0be0ee00d94675aff4471838c2f8e60ebb (diff) | |
| download | mu-91226d7c76e8139591a53e245a1fa94c7856ad6d.tar.gz | |
76
| -rw-r--r-- | mu.arc | 6 |
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) |