(Arne Babenhauserheide)
2014-08-17: implemented equal indentation. implemented equal indentation.
diff --git a/wisp-scheme.w b/wisp-scheme.w --- a/wisp-scheme.w +++ b/wisp-scheme.w @@ -245,6 +245,22 @@ define : wisp-indentation-to-parens line . current-line cdr unprocessed . indentation-levels + : = (line-indent current-line) (line-indent next-line) + if : line-continues? current-line ; no parens needed + loop + append processed : list current-line + . next-line + cdr unprocessed + . indentation-levels + loop + append processed + list + line-prepend-n-parens 1 + line-append-n-parens 1 + . current-line + . next-line + cdr unprocessed + . indentation-levels else throw 'wisp-not-implemented "Still need to implement the line comparisons."