(Arne Babenhauserheide)
2013-09-12: can survive one linebreak inside parens, but not a second in a new can survive one linebreak inside parens, but not a second in a new set of parens. I do not know why.
diff --git a/wisp-guile.w b/wisp-guile.w
--- a/wisp-guile.w
+++ b/wisp-guile.w
@@ -72,7 +72,8 @@ Ends with three consecutive linebreaks o
set! incharform 0
when : >= incharform 2
- if : or (char=? nextchar #\space) (char=? nextchar #\linefeed ) (char=? nextchar #\newline )
+ if : or (char=? nextchar #\space) (char=?
+ nextchar #\linefeed ) (char=? nextchar #\newline )
begin
; format #t "2: set incharform 0: lastchar ~a nextchar ~a instring ~a incomment ~a incharform ~a" lastchar nextchar instring incomment incharform
; newline
@@ -139,12 +140,11 @@ Ends with three consecutive linebreaks o
set! incharform 2
; check for brackets
- ; format #t "~a~a: ~a\n" instring inbrackets nextchar
- ; this breaks on this: (char=? lastchar #\# )
+ ; FIXME: This only fixes a single linebreak inside parens, but if a second occurs on the same line it breaks. I do not know why.
when : not : or instring incomment
when
and
- not : string-suffix? text : string-append "#"
+ not : string-suffix? text "#"
not : char=? #\\ lastchar
not : endsinunevenbackslashes : string-drop-right text : min 1 : string-length text
when : equal? "(" : string nextchar