diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-14 21:51:27 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-14 22:10:47 -0800 |
| commit | 20379e78835203f0b5c79ac3edf1749216da82c8 (patch) | |
| tree | af03251fa299951e7c6ff322dbb3e4163413b6c5 /mu.arc.t | |
| parent | 7d91aa77ffe74f136340c729bf9df9e24184dd7d (diff) | |
| download | mu-20379e78835203f0b5c79ac3edf1749216da82c8.tar.gz | |
569 - ah, the right way to do generic functions
Each clause creates its own default-space for local variables. Now we can justify prepending bodies on every 'function' form. Later we can optimize away the duplicate default-spaces. Another cost: we can't mindlessly use 'next-input' anymore. Pity.
Diffstat (limited to 'mu.arc.t')
| -rw-r--r-- | mu.arc.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t index 5e376ed4..1b378c5a 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -4116,6 +4116,8 @@ (prn "F - 'absolutize' checks against default-space bounds")) (when (~iso '((_ integer)) (absolutize '((_ integer)))) (prn "F - 'absolutize' passes dummy args right through")) +(when (~iso '((default-space integer)) (absolutize '((default-space integer)))) + (prn "F - 'absolutize' passes 'default-space' right through")) (= memory*.20 5) ; pretend array (= rep.routine*!globals 20) ; provide it to routine global |