364

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