(Arne Babenhauserheide)
2014-08-17: add TODO: process indentation and accordingly rename lines to add TODO: process indentation and accordingly rename lines to s-exps.
diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -160,17 +160,18 @@ define : wisp-scheme-read-chunk-lines po
define : wisp-scheme-read-chunk port
. "Read and parse one chunk of wisp-code"
let : : lines : wisp-scheme-read-chunk-lines port
+ ; TODO: process indentation.
. lines
define : wisp-scheme-read-all port
. "Read all chunks from the given port"
let loop
- : lines '()
+ : s-exps '()
cond
: eof-object? : peek-char port
- . lines
+ . s-exps
else
- append lines : wisp-scheme-read-chunk port
+ append s-exps : wisp-scheme-read-chunk port
define : wisp-scheme-read-file path
call-with-input-file path wisp-scheme-read-all