(Arne Babenhauserheide)
2014-10-17: reader: allow executing wisp files directly reader: allow executing wisp files directly return eof-object if at the end of the port.
diff --git a/wisp-reader.w b/wisp-reader.w --- a/wisp-reader.w +++ b/wisp-reader.w @@ -51,7 +51,9 @@ define : read-one-wisp-sexp port env try-pending define : wisp-scheme-read-chunk-env port env - cons 'begin : wisp-scheme-read-chunk port + if : eof-object? : peek-char port + read-char port ; return eof: we’re done + cons 'begin : wisp-scheme-read-chunk port define-language wisp . #:title "Wisp Scheme Syntax THIS IS EXPERIMENTAL, USE AT YOUR OWN RISK"