(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