From 2ee76bda373acdce71f560908e7c15ae7d97b8f8 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 22 Aug 2014 11:30:36 -0700
Subject: 72 - broken

Thoroughly confused about how to manage memory at initialization time, and how
to maintain type information in the simulated machine.
---
 mu.arc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'mu.arc')

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
-- 
cgit 1.4.1-2-gfad0