From b2848762b8155be597dfa4819f8ff5ea337e3e4b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 3 Dec 2011 14:58:23 +0000 Subject: * interp/nruncomp.boot (washFunctorBody) [clean]: Clean %when forms too. --- src/ChangeLog | 5 +++++ src/interp/nruncomp.boot | 4 ++++ 2 files changed, 9 insertions(+) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index f5054894..6efb85c1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2011-12-03 Gabriel Dos Reis + + * interp/nruncomp.boot (washFunctorBody) [clean]: Clean %when + forms too. + 2011-12-03 Gabriel Dos Reis * interp/compiler.boot: Replace %labelled with %scope. 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 -- cgit v1.2.3