whoops

8 years ago · 0f9e8018ea
parent feec0f85d5
commit 0f9e8018ea
1 changed files with 1 additions and 1 deletions
--- a/brag/brag/rules/parser.rkt
+++ b/brag/brag/rules/parser.rkt
@ -91,7 +91,7 @@
     ;; angles indicate splicing. set splice value to #t
     [(RULE_HEAD_HIDDEN pattern)
      (begin
-        (define trimmed (regexp-match #px"<(.+)>\\s*:$" $1))
+        (define trimmed (cadr (regexp-match #px"<(.+)>\\s*:$" $1)))
        (rule (position->pos $1-start-pos)
              (position->pos $2-end-pos)
              (lhs-id (position->pos $1-start-pos)