akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

67

This commit is contained in:
Kartik K. Agaram 2014-08-21 20:50:38 -07:00
parent 0a8858dbc5
commit c7dc4ba972
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mu.arc
View File

@ -69,7 +69,7 @@
(yield n)
(++ n))))
(mac m (loc) ; for memory
(mac m (loc) ; read memory, respecting metadata
`(let loc@ ,loc
;? (prn "m " loc@ sz.loc@)
(if (is 1 sz.loc@)
@ -77,7 +77,7 @@
(annotate 'record
(map memory* (addrs (addr loc@) sz.loc@))))))
(mac setm (loc val) ; set memory, respecting addressing-mode tags
(mac setm (loc val) ; set memory, respecting metadata
`(with (loc@ ,loc
val@ ,val)
;? (prn "setm " loc@ " " val@)