From b2848762b8155be597dfa4819f8ff5ea337e3e4b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 3 Dec 2011 14:58:23 +0000
Subject: 	* interp/nruncomp.boot (washFunctorBody) [clean]: Clean %when 
 forms too.

---
 src/interp/nruncomp.boot | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/interp')

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