wisp
 
(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