(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