better regexp

brag/brag/rules/parser.rkt

@@ -91,8 +91,7 @@
      ;; angles indicate splicing. set splice value to #t
      [(RULE_HEAD_HIDDEN pattern)
       (begin
-        (begin 
+        (define trimmed (regexp-match #px"<(.+)>\\s*:$" $1))
-        (define trimmed (cadr (regexp-match #px"<(\\w+)>\\s*:$" $1)))
         (rule (position->pos $1-start-pos)
               (position->pos $2-end-pos)
               (lhs-id (position->pos $1-start-pos)
@@ -102,7 +101,7 @@
                            (position-col $1-start-pos))
                       trimmed
                       #t)
-              $2)))]]
+              $2))]]
     
     [pattern
      [(implicit-pattern-sequence PIPE pattern)