sep of concerns

[clean-tests.git] / expr / exist / whileRep.icl

diff --git a/expr/exist/whileRep.icl b/expr/exist/whileRep.icl
index 6b5fe6f..da70d5e 100644 (file)
--- a/expr/exist/whileRep.icl
+++ b/expr/exist/whileRep.icl
@@ -1,7 +1,9 @@
 implementation module whileRep
 
+import StdEnv
 import while
 
 :: WRep = WRepeat WhileExpr Until WhileBool
 
-instance eval WRep where eval (WRepeat e Until b) = eval (e :. While b Do e)
+instance eval WRep where eval (WRepeat e _ b) = eval (e :. While b Do e)
+instance print WRep where print (WRepeat e _ b) = "Repeat " +++ print e +++ " until " +++ print b