diff options
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/mu.arc b/mu.arc index f1067200..57c69d1f 100644 --- a/mu.arc +++ b/mu.arc @@ -113,10 +113,13 @@ (def m (loc) ; read memory, respecting metadata ;? (prn "m " loc " " sz.loc) - (if (is 1 sz.loc) - (memory* (addr loc)) - (annotate 'record - (map memory* (addrs (addr loc) sz.loc))))) + (if (is 'literal ty.loc) + (v loc) + (is 1 sz.loc) + (memory* (addr loc)) + :else + (annotate 'record + (map memory* (addrs (addr loc) sz.loc))))) (def setm (loc val) ; set memory, respecting metadata ;? (prn "setm " loc " " val) |