diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-28 17:49:47 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-28 17:51:16 -0800 |
commit | 2ca395e7ea24ff7db0bbdc51a130d7bbb586f569 (patch) | |
tree | a80a4866e00dfb0406bb820644eb56785c0ced95 | |
parent | ff61dc90eae50cdeb9927392fce692cb113ce751 (diff) | |
download | mu-2ca395e7ea24ff7db0bbdc51a130d7bbb586f569.tar.gz |
364
-rw-r--r-- | mu.arc | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/mu.arc b/mu.arc index a5a34c14..693bd73c 100644 --- a/mu.arc +++ b/mu.arc @@ -311,23 +311,9 @@ (err "type @typename doesn't have a size: " (tostring:pr types*.typename)))) (def addr (loc) - (trace "addr" loc) - (ret result v.loc - (trace "addr" "initial result: " result) - (unless (or (pos 'global metadata.loc) - (no routine*)) -;? (tr "aa " routine*) - (whenlet base rep.routine*!call-stack.0!default-scope - (if (< result memory*.base) - (do (trace "addr" "incrementing by " base) - (++ result base)) - (die "addr: no room for var @result")))) -;? (tr "mm") + (ret result (v absolutize.loc) (when (pos 'deref metadata.loc) - (trace "addr" "deref " result " => " memory*.result) - (zap memory* result)) -;? (tr "zz") - )) + (zap memory* result)))) (def addrs (n sz) (accum yield |