diff --git a/brag/brag/codegen/runtime.rkt b/brag/brag/codegen/runtime.rkt index 86afa55..5acdaf9 100755 --- a/brag/brag/codegen/runtime.rkt +++ b/brag/brag/codegen/runtime.rkt @@ -187,7 +187,7 @@ This would be the place to check a syntax property for hiding. ;; each `component-list` is a list that's either empty, or has a single component-stx object ;; inside `component-stx` is a name followed by subcomponents (for*/list ([component-list (in-list component-lists)] - [component-stx (in-list component-list)]) ; this has the effect of omitting empty component-lists + [component-stx (in-list component-list)]) ; this has the effect of omitting any empty `component-list` (list (cond [(eq? (syntax-property component-stx 'hide-or-splice) 'hide) diff --git a/brag/brag/rules/parser.rkt b/brag/brag/rules/parser.rkt index de976cc..4cf9608 100755 --- a/brag/brag/rules/parser.rkt +++ b/brag/brag/rules/parser.rkt @@ -96,7 +96,7 @@ #f) $2))] - [(RULE_HEAD_HIDDEN pattern) ; bang indicates hiding + [(RULE_HEAD_HIDDEN pattern) ; slash indicates hiding (begin (define trimmed (cadr (regexp-match (pregexp (format "~a(\\S+)\\s*:$" hide-char)) $1))) (rule (position->pos $1-start-pos) @@ -111,7 +111,7 @@ ''hide) ; symbol needs to be double quoted in this case $2))] - [(RULE_HEAD_SPLICED pattern) ;atsign indicates splicinh + [(RULE_HEAD_SPLICED pattern) ; atsign indicates splicing (begin (define trimmed (cadr (regexp-match (pregexp (format "~a(\\S+)\\s*:$" splice-char)) $1))) (rule (position->pos $1-start-pos)