(Arne Babenhauserheide)
2013-09-05: #\( and #\) now work. #\( and #\) now work.
diff --git a/wisp-guile.w b/wisp-guile.w --- a/wisp-guile.w +++ b/wisp-guile.w @@ -94,11 +94,11 @@ define : nostringandbracketbreaks inport ; check for brackets ; FIXME: this fails to parse. - when : and ( char=? nextchar #\( ) ( not instring ) ( not incomment ) ( = incharform 0 ) - format #t "add bracketlevel: lastchar ~a nextchar ~a instring ~a incomment ~a incharform ~a" lastchar nextchar instring incomment incharform - newline + when : and ( char=? nextchar #\( ) ( not instring ) ( not incomment ) ( = incharform 1 ) + ; format #f "add bracketlevel: lastchar ~a nextchar ~a instring ~a incomment ~a incharform ~a" lastchar nextchar instring incomment incharform + ; newline set! inbrackets : + inbrackets 1 - when : and ( char=? nextchar #\) ) ( not instring ) ( not incomment ) ( = incharform 0 ) + when : and ( char=? nextchar #\) ) ( not instring ) ( not incomment ) ( = incharform 1 ) set! inbrackets : - inbrackets 1 if : or instring : > inbrackets 0