diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-12-29 09:20:51 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-12-29 09:20:51 -0800 |
| commit | 5b07014681bd87b9a6e69d85b08fdf7bbbd7b641 (patch) | |
| tree | bb94ab5b0f7a809e9a0f056b5c54cc680a927fd6 /mu.arc | |
| parent | 6846d160dfdd646a59f0fa96995b970640b16c37 (diff) | |
| download | mu-5b07014681bd87b9a6e69d85b08fdf7bbbd7b641.tar.gz | |
461 - create room for an index '0' in scopes
This wasn't working until I fixed 459.
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 2905f9fc..ca95371a 100644 --- a/mu.arc +++ b/mu.arc @@ -744,7 +744,7 @@ operand (is 'global (alref operand 'space)) (aif rep.routine*!globals - `((,(+ v.operand it) ,@(cdr operand.0)) + `((,(+ it 1 v.operand) ,@(cdr operand.0)) ,@(rem [caris _ 'space] metadata.operand) (raw)) (die "routine has no globals: @operand")) @@ -752,7 +752,7 @@ (iflet base rep.routine*!call-stack.0!default-scope ;? (do (prn 313 " " operand " " base) (if (< v.operand memory*.base) - `((,(+ v.operand base) ,@(cdr operand.0)) + `((,(+ base 1 v.operand) ,@(cdr operand.0)) ,@metadata.operand (raw)) (die "no room for var @operand in routine of size @memory*.base")) |