diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-30 00:41:09 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-30 00:41:09 -0700 |
commit | 2c3248b3763e24e8549f69c283a5e6157d2510b1 (patch) | |
tree | 082a5a137e7155dfd9f1eb2e3d5d2bcae1d19f6d /mu.arc | |
parent | f57129dcca0aa224a8d97c72b82ef4eddda4bd20 (diff) | |
download | mu-2c3248b3763e24e8549f69c283a5e6157d2510b1.tar.gz |
179
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/mu.arc b/mu.arc index 64f63218..384316a4 100644 --- a/mu.arc +++ b/mu.arc @@ -151,8 +151,10 @@ (def addr (loc) (ret result v.loc (whenlet base rep.routine*!default-scope - (++ result base)) - (if (pos 'deref metadata.loc) + (if (< result memory*.base) + (++ result base) + (die "addr: no room for var @result"))) + (when (pos 'deref metadata.loc) (zap memory* result)))) (def addrs (n sz) |