try reporting complex Scribble braces as regular braces

svn: r15614

collects/syntax-color/scribble-lexer.ss

@@ -91,7 +91,7 @@
       (let-values ([(end-line end-col end-pos) (port-next-location in)])
         (values (cadr m)
                 'parenthesis
-                #f
+                '|{| ;; Better complex paren?
                 pos
                 end-pos
                 (let ([closer (regexp-quote
@@ -108,8 +108,8 @@
                                                  #"[@{])|(?="
                                                  closer
                                                  #")|(?=[\r\n])|$)"))
-                                   #f
-                                   #f)
+                                   '|{|  ;; Better complex paren?
+                                   '|}|) ;; Better complex paren?
                         mode)))))
 
     (if (eof-object? (peek-char in))

collects/tests/syntax-color/scribble-lexer.ss

@@ -200,7 +200,7 @@
 (test "@`',@foo{blah}" '((1 parenthesis)
                          (1 constant) ; `
                          (1 constant) ; '
-                         (2 other) ; ,@
+                         (2 other)    ; ,@
                          (3 symbol)
                          (1 parenthesis)
                          (4 string)
@@ -232,3 +232,4 @@
                       (1 string)
                       (1 parenthesis)))
 
+; (test "@|=@=|}" null)