diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 4 insertions, 0 deletions
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 |