From 7d52fe2a3c1e79ffbf35b00067ff27235941ec33 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 31 Oct 2014 16:11:12 -0700
Subject: 186 - per-call default scope

We can't free memory yet, but at least this way we stop using stale
scopes by default.
---
 mu.arc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'mu.arc')

diff --git a/mu.arc b/mu.arc
index 344e08e4..f1bd81e4 100644
--- a/mu.arc
+++ b/mu.arc
@@ -151,7 +151,7 @@
 (def addr (loc)
   (ret result v.loc
     (unless (pos 'global metadata.loc)
-      (whenlet base rep.routine*!default-scope
+      (whenlet base rep.routine*!call-stack.0!default-scope
         (if (< result memory*.base)
            (++ result base)
            (die "addr: no room for var @result"))))
@@ -180,7 +180,7 @@
   (point return
     (when (is v.loc 'default-scope)
       (assert (is 1 sz.loc))
-      (= rep.routine*!default-scope val)
+      (= rep.routine*!call-stack.0!default-scope val)
       (return))
     (assert (isa v.loc 'int))
     (trace "setm" loc " <= " val)
-- 
cgit 1.4.1-2-gfad0