(Arne Babenhauserheide)
2014-09-02: removed the no longer needed helper functions prepend-paren and removed the no longer needed helper functions prepend-paren and append-paren.
diff --git a/wisp-scheme.w b/wisp-scheme.w --- a/wisp-scheme.w +++ b/wisp-scheme.w @@ -223,29 +223,6 @@ define : wisp-scheme-read-chunk-lines po append currentsymbols : list : read port . emptylines -define : line-append-n-parens n line - . "Append N parens at the end of the line" - let loop : (rest n) (l line) - cond - : = 0 rest - . l - else - loop (1- rest) (append l '(")")) - -define : line-prepend-n-parens n line - . "Prepend N parens at the beginning of the line, but after the indentation-marker" - let loop : (rest n) (l line) - cond - : = 0 rest - . l - else - loop - 1- rest - append - list : car l - . '("(") - cdr l - define : line-code-replace-inline-colons line ' "Replace inline colons by opening parens which close at the end of the line"