From cf505f2995380f27bd7dd00cb7665286a38eab10 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 13 Feb 2017 15:46:24 -0800 Subject: [PATCH] improve code comments --- brag/brag/codegen/runtime.rkt | 2 +- brag/brag/rules/parser.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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)