diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-03 14:58:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-03 14:58:23 +0000 |
| commit | b2848762b8155be597dfa4819f8ff5ea337e3e4b (patch) | |
| tree | 545f6ffb65af134ebc7826204922ec3b3470a591 | |
| parent | cd3e10cdeca214d5e437d22a8a9db312a5f1bd8c (diff) | |
| download | open-axiom-b2848762b8155be597dfa4819f8ff5ea337e3e4b.tar.gz | |
* interp/nruncomp.boot (washFunctorBody) [clean]: Clean %when
forms too.
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index f5054894..6efb85c1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2011-12-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/nruncomp.boot (washFunctorBody) [clean]: Clean %when + forms too. + +2011-12-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/compiler.boot: Replace %labelled with %scope. * interp/define.boot: Likewise. * interp/g-opt.boot: Likewise. diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 29a36988..99e95197 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -361,6 +361,10 @@ washFunctorBody form == main form where stmts = nil => nil rest stmts = nil => first stmts ["PROGN",:stmts] + x is ['%when,:.] => + for cl in x.args | cl is [.,s] repeat + second(cl) := clean s + x x is ['%list] => nil x |