-

utils.rkt

@@ -9,8 +9,24 @@
          make-delayed-reactor
          mktable
          simple-row-formatter
+         while
          )
 
+
+ (define-syntax while
+    (syntax-rules ()
+      ((_ cond body ...)
+       (letrec ((while-f (lambda (last-result)
+                           (if cond
+                               (let ((last-result (begin
+                                                    body
+                                                    ...)))
+                                 (while-f last-result))
+                               last-result))))
+         (while-f #f))
+       )
+      ))
+
 (define-syntax ww-connect 
   (syntax-rules (this)
     ((_ id method)