diff options
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index f9af4697..242bba63 100644 --- a/mu.arc +++ b/mu.arc @@ -16,7 +16,7 @@ (def clear () (= types* (obj ; must be scalar or array, sum or product or primitive - type (obj size 1) + type (obj size 5 record t elems '(integer boolean boolean boolean type-array)) location (obj size 1) integer (obj size 1) boolean (obj size 1) @@ -155,6 +155,8 @@ (do1 fn-arg-idx ++.fn-arg-idx)) (m fn-args.idx)) + type + (ty (fn-args arg.0)) otype (ty (fn-oargs arg.0)) jmp |