wisp
 
(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