diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-31 16:11:12 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-31 16:11:12 -0700 |
| commit | 7d52fe2a3c1e79ffbf35b00067ff27235941ec33 (patch) | |
| tree | 23ef693088722eb7680b4781b74e4de89662c659 /mu.arc | |
| parent | 40418ad4043eb254d9f2bf3c2307444babae95ae (diff) | |
| download | mu-7d52fe2a3c1e79ffbf35b00067ff27235941ec33.tar.gz | |
186 - per-call default scope
We can't free memory yet, but at least this way we stop using stale scopes by default.
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 4 |
1 files changed, 2 insertions, 2 deletions
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) |