wisp
 
(Arne Babenhauserheide)
2014-12-03: use cond instead of if

use cond instead of if

diff --git a/wisp-reader.w b/wisp-reader.w
--- a/wisp-reader.w
+++ b/wisp-reader.w
@@ -55,12 +55,13 @@ define wisp-pending-sexps : list
 
 define : read-one-wisp-sexp port env
   define : wisp-scheme-read-chunk-env
-           if : eof-object? : peek-char port
+           cond 
+              : eof-object? : peek-char port
                 read-char port ; return eof: we’re done
-                begin
-                  set! wisp-pending-sexps
-                       append wisp-pending-sexps : wisp-scheme-read-chunk port
-                  try-pending
+              else
+                set! wisp-pending-sexps
+                     append wisp-pending-sexps : wisp-scheme-read-chunk port
+                try-pending
   define : try-pending
     if : null? wisp-pending-sexps
          wisp-scheme-read-chunk-env