(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