(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