diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-08-20 19:49:05 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-08-20 19:49:05 -0700 |
| commit | 8a93b211e4853fbe8e411767e7156d1c40f46f6d (patch) | |
| tree | b8a5377d38168001f6fbfdc13cdb19b38c6b9441 /mu.arc | |
| parent | 980e1bf3caaef5d87f664a4aafb7a89f501be139 (diff) | |
| download | mu-8a93b211e4853fbe8e411767e7156d1c40f46f6d.tar.gz | |
59
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/mu.arc b/mu.arc index bb3788cc..992a8d9b 100644 --- a/mu.arc +++ b/mu.arc @@ -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 |