wisp
 
(Arne Babenhauserheide)
2014-08-17: renicing, preparation for inline-colons and function renaming (wisp-

renicing, preparation for inline-colons and function renaming (wisp-indentation-to-parens -> wisp-scheme-indentation-to-parens)

diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -222,7 +222,7 @@ define : line-prepend-n-parens n line
 
 ; TODO: process inline colons
 
-define : wisp-indentation-to-parens lines
+define : wisp-scheme-indentation-to-parens lines
          . "Add parentheses to lines and remove the indentation markers"
          let loop
            : processed '()
@@ -271,12 +271,14 @@ define : wisp-indentation-to-parens line
                      ; We cannot process indentation without
                      ; code. Just switch to the next line. This should
                      ; only happen at the start of the recursion.
+                     ; TODO: Somehow preserve the line-numbers.
                      loop
                        . processed
                        . next-line
                        cdr unprocessed
                        . indentation-levels
                    : line-empty-code? next-line
+                     ; TODO: Somehow preserve the line-numbers.
                      loop
                        . processed
                        . current-line
@@ -336,10 +338,15 @@ define : wisp-indentation-to-parens line
                              . current-line next-line processed
 
 
+define : wisp-scheme-replace-inline-colons lines
+         ' "Replace inline colons by opening parens which close at the end of the line"
+         . #t
+
+
 define : wisp-scheme-read-chunk port
          . "Read and parse one chunk of wisp-code"
          ; TODO: process inline colons.
-         wisp-indentation-to-parens : wisp-scheme-read-chunk-lines port
+         wisp-scheme-indentation-to-parens : wisp-scheme-read-chunk-lines port
 
 define : wisp-scheme-read-all port
          . "Read all chunks from the given port"