(Arne Babenhauserheide)
2014-08-17: also prpend parens fr line which does not continue also prpend parens fr line which does not continue
diff --git a/wisp-scheme.w b/wisp-scheme.w --- a/wisp-scheme.w +++ b/wisp-scheme.w @@ -180,7 +180,7 @@ define : line-prepend-n-parens n line 1- rest append list : car l - '("(") + . '("(") cdr l ; TODO: process inline colons @@ -219,9 +219,10 @@ define : wisp-indentation-to-parens line loop append processed list - line-append-n-parens - length indentation-levels - . current-line + line-prepend-n-parens 1 + 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