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

59

This commit is contained in:
Kartik K. Agaram 2014-08-20 19:49:05 -07:00
parent 980e1bf3ca
commit 8a93b211e4
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mu.arc
View File

@ -35,18 +35,18 @@
(each (name . body) fns
(= function*.name body)))
(mac v (operand) ; for value
`(,operand 0))
(def v (operand) ; for value
operand.0)
(mac metadata (operand)
`(cdr ,operand))
(def metadata (operand)
cdr.operand)
(mac ty (operand)
`(,operand 1)) ; assume type is always first bit of metadata, and it's always present
(def ty (operand)
operand.1) ; assume type is always first bit of metadata, and it's always present
(mac sz (operand)
(def sz (operand)
; todo: override this for vectors
`((types* (ty ,operand)) 'size))
((types* ty.operand) 'size))
(mac addr (loc)
`(let loc@ ,loc