smalltalk-tng
changeset 265:f13aea5fd174
Avoid egregious shadowing.
| author | Tony Garnock-Jones <tonyg@kcbbs.gen.nz> |
|---|---|
| date | Fri Jul 24 17:47:28 2009 +0100 (2009-07-24) |
| parents | 5b3a04d381aa |
| children | 72a3eb1cead7 |
| files | experiments/codegen/codegen.scm |
line diff
1.1 --- a/experiments/codegen/codegen.scm Fri Jul 24 17:47:07 2009 +0100 1.2 +++ b/experiments/codegen/codegen.scm Fri Jul 24 17:47:28 2009 +0100 1.3 @@ -425,6 +425,6 @@ 1.4 do-primitive do-call push-continuation) 1.5 exp)))) 1.6 1.7 -(jit-compile '(lambda (n) 1.8 +(jit-compile '(lambda (num) 1.9 (define (f n) (if (zero? n) 1 (* n (f (- n 1))))) 1.10 - (f n))) 1.11 + (f num)))