[regexp] ignore )?, for now

private/regexp.rkt

@@ -82,8 +82,11 @@
            [(#\))
             (cond
              [(and (< i last-index)
-                   (eq? #\* (string-ref str (+ i 1))))
+                   (or
+                    (eq? #\? (string-ref str (+ i 1)))
+                    (eq? #\* (string-ref str (+ i 1)))))
               ;; Group is starred, can't predict num. matches statically
+              ;; or ?'d 
               #f]
              [(null? in-paren)
               (group-error str (format "')' at index ~a" i))]

test/regexp-pass.rkt

@@ -250,4 +250,13 @@
       (U #f (Listof (U #f String))))
     '("that" #f))
 
+  (let-regexp: ([NODE_REGEXP
+    #rx"^\\\\node *\\(([0-9]+)\\) *(\\[.*\\])? *\\{\\\\rkt\\{([0-9]+)\\}\\{(.+)\\}\\};$"])
+    (regexp-match: NODE_REGEXP "hai")
+    (void))
+
+  (let-regexp: ([EDGE_REGEXP
+    #rx"^\\\\draw\\[.*\\]? *\\(([0-9]+)\\)[^(]*\\(([0-9]+)\\);$"])
+    (regexp-match: EDGE_REGEXP "bye")
+    (void))
 )