diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-21 20:21:26 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-21 20:21:26 -0800 |
| commit | 257450c311e4ab9eb9c28c0c4423e6e00a8d397c (patch) | |
| tree | 1f025a582b2f45d5f458e219bce00425919517eb | |
| parent | e195e93757f21d6c5585679d4d1023af96ece8b4 (diff) | |
| download | mu-257450c311e4ab9eb9c28c0c4423e6e00a8d397c.tar.gz | |
286
| -rw-r--r-- | mu.arc | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/mu.arc b/mu.arc index e6a12396..44978b32 100644 --- a/mu.arc +++ b/mu.arc @@ -333,11 +333,13 @@ (return rep.routine*!call-stack.0!default-scope)) (trace "m" loc) (assert (isa v.loc 'int) "addresses must be numeric (problem in convert-names?) @loc") - (if (is 1 sz.loc) - (memory* addr.loc) - :else - (annotate 'record - (map memory* (addrs addr.loc sz.loc)))))) + (with (n sz.loc + addr addr.loc) + (if (is 1 n) + (memory* addr) + :else + (annotate 'record + (map memory* (addrs addr n))))))) (def setm (loc val) ; set memory, respecting metadata (point return |