diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-28 18:19:09 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-28 18:19:09 -0800 |
commit | 00a3ad4e452ccd1c675266d49891b915738bdab1 (patch) | |
tree | 26f542ca9d2c6e5512a87dd297c38841e48cc1a1 | |
parent | 06cff86f17cd9d983840c9a4fcdc9df615c7ca73 (diff) | |
download | mu-00a3ad4e452ccd1c675266d49891b915738bdab1.tar.gz |
369
-rw-r--r-- | mu.arc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mu.arc b/mu.arc index 4253b6d0..f5a0c5c0 100644 --- a/mu.arc +++ b/mu.arc @@ -553,7 +553,7 @@ addr addr.loc) ;? (trace "m" "reading " n " locations starting at " addr) (if (is 1 n) - (memory* addr) + memory*.addr :else (annotate 'record (map memory* (addrs addr n))))))) @@ -574,12 +574,12 @@ (if (is 1 n) (do (assert (~isa val 'record) "setm: record of size 1 @(tostring prn.val)") (trace "setm" loc ": setting " addr " to " val) - (= (memory* addr) val)) + (= memory*.addr val)) (do (assert (isa val 'record) "setm: non-record of size >1 @val") (each (dest src) (zip (addrs addr n) (rep val)) (trace "setm" loc ": setting " dest " to " src) - (= (memory* dest) src))))))) + (= memory*.dest src))))))) (def addr (operand) (let loc absolutize.operand @@ -709,7 +709,7 @@ ;? (prn "new array: @type @size") (ret result Memory-in-use-until (++ Memory-in-use-until (+ 1 (* (sizeof types*.type!elem) size))) - (= (memory* result) size))) + (= memory*.result size))) (def new-string (literal-string) (ret result Memory-in-use-until |