(Arne Babenhauserheide)
2014-08-17: FIX: used variables on a line without leading dot. FIX: used variables on a line without leading dot.
diff --git a/wisp-scheme.w b/wisp-scheme.w
--- a/wisp-scheme.w
+++ b/wisp-scheme.w
@@ -25,11 +25,11 @@ define : line-code line
cdr line
define : line-continues? line
- equal? : "." : car : line-code line
+ equal? "." : car : line-code line
define : line-only-colon? line
and
- equal? : ":" : car : line-code line
+ equal? ":" : car : line-code line
null? : cdr : line-code line
define : line-empty-code? line
@@ -211,20 +211,20 @@ define : wisp-indentation-to-parens line
list
line-append-n-parens
1- : length indentation-levels
- current-line
- '() ; current-line empty: required end condition 1
- '() ; unprocessed empty: required end condition 2
- '() ; indentation-levels: There is nothing more to process
+ . current-line
+ . '() ; current-line empty: required end condition 1
+ . '() ; unprocessed empty: required end condition 2
+ . '() ; indentation-levels: There is nothing more to process
else
loop
append processed
list
line-append-n-parens
length indentation-levels
- current-line
- '() ; current-line empty: required end condition 1
- '() ; unprocessed empty: required end condition 2
- '() ; indentation-levels: There is nothing more to process
+ . current-line
+ . '() ; current-line empty: required end condition 1
+ . '() ; unprocessed empty: required end condition 2
+ . '() ; indentation-levels: There is nothing more to process
else ; now we come to the line-comparisons and indentation-counting.
let*
: next-line : car unprocessed
@@ -239,7 +239,6 @@ define : wisp-indentation-to-parens line
cdr unprocessed
. indentation-levels
: line-empty-code? next-line
- ; FIXME: this throws ERROR: Wrong type to apply: "."
loop
. processed
. current-line