diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-05 14:35:57 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-05 14:35:57 -0700 |
| commit | ecbd043693e61ec01cb1efce55d653ca8f5c204b (patch) | |
| tree | 1d744f92444ada52169f5d2adf80b4c31667f7c7 | |
| parent | 245609e3b2a542f37b0f7d7d7c6027c4224a09bc (diff) | |
| download | mu-ecbd043693e61ec01cb1efce55d653ca8f5c204b.tar.gz | |
106
| -rw-r--r-- | mu.arc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mu.arc b/mu.arc index a492b3f0..3bade639 100644 --- a/mu.arc +++ b/mu.arc @@ -101,9 +101,9 @@ types*.typename!size) (def addr (loc) - (if (pos 'deref (metadata loc)) - (memory* (v loc)) - (v loc))) + (if (pos 'deref metadata.loc) + (memory* v.loc) + v.loc)) (def addrs (n sz) (accum yield @@ -116,10 +116,10 @@ (if (is 'literal ty.loc) (v loc) (is 1 sz.loc) - (memory* (addr loc)) + (memory* addr.loc) :else (annotate 'record - (map memory* (addrs (addr loc) sz.loc))))) + (map memory* (addrs addr.loc sz.loc))))) (def setm (loc val) ; set memory, respecting metadata ;? (prn "setm " loc " " val) |