(Arne Babenhauserheide)
2013-08-26: wisp-in-wisp: drop continuation markers after bracketizing. wisp-in-wisp: drop continuation markers after bracketizing.
diff --git a/wisp-guile.w b/wisp-guile.w --- a/wisp-guile.w +++ b/wisp-guile.w @@ -397,6 +397,15 @@ define : line-indent-levels-adjust level append (list next-indent) lev adjuster : list-tail lev 1 +define : line-drop-continuation-dot line + let : : content : line-content line + list + line-indent line + if : line-continues? line + string-drop content 2 + . content + line-comment line + define : wisp2lisp-parse lisp prev lines . "Parse the body of the wisp-code." set! prev : wisp2lisp-add-inline-colon-brackets prev ; prev already is a code-line. @@ -425,7 +434,7 @@ define : wisp2lisp-parse lisp prev lines bracketstocloseprev : line-indent-brackets-to-close next-indent levels next-continues pre-continues bracketstoopennext : line-indent-brackets-to-open next-indent levels next-continues pre-continues newnext : if final-line next : if (> bracketstoopennext 0) (line-add-starting-bracket next) next - newpre : line-add-closing-brackets pre bracketstocloseprev + newpre : line-drop-continuation-dot : line-add-closing-brackets pre bracketstocloseprev newlevels : line-indent-levels-adjust levels next-indent bracketizer newlevels newnext if final-line unprocessed : list-tail unprocessed 1