(Arne Babenhauserheide)
2014-10-14: unfinished implementation. TOOD: Finish. unfinished implementation. TOOD: Finish.
diff --git a/wisp-scheme.w b/wisp-scheme.w --- a/wisp-scheme.w +++ b/wisp-scheme.w @@ -225,6 +225,16 @@ define : wisp-scheme-read-chunk-lines po . currentindent . currentsymbols . emptylines + : and inindent : equal? (string-ref "." 0) next-char + ; TODO: special case for the dot using the dotrepr as + ; intermediate representation + read-char port ; remove next-char + let : : next-next-char : peek-char port + if : not : equal? #\space next-next-char + ; use the reader + ; add the next char to the port again + unread-char next-char port + ; TODO: finish else ; use the reader loop . indent-and-symbols