suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change lhs-id key from 'hide to 'splice

Browse Source
This commit is contained in:
Matthew Butterick 2016-05-06 13:24:15 -07:00
parent f6181b90d7
commit 992fccdb1d
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
brag/brag/codegen/codegen.rkt
View File

@ -54,7 +54,7 @@
(define generated-rule-codes (map flat-rule->yacc-rule flattened-rules)) (define generated-rule-codes (map flat-rule->yacc-rule flattened-rules))
#| #|
MB: `generated-rule-codes` loses the 'hide syntax property (but not for lhs-ids) MB: `generated-rule-codes` loses the 'hide syntax property (but lhs-ids carry 'splice)
|# |#
#;(report generated-rule-codes) #;(report generated-rule-codes)
@ -179,7 +179,7 @@
;; stx :== (name (U tokens rule-stx) ...) ;; stx :== (name (U tokens rule-stx) ...)
;; ;;
(define (flat-rule->yacc-rule a-flat-rule) (define (flat-rule->yacc-rule a-flat-rule)
;; lhs-ids still carry 'hide property on #'name field ;; lhs-ids still carry 'splice property on #'name field
#;(report a-flat-rule) #;(report a-flat-rule)
(syntax-case a-flat-rule () (syntax-case a-flat-rule ()
[(rule-type origin name clauses ...) [(rule-type origin name clauses ...)
@ -253,7 +253,7 @@
#`[(translated-pattern ...) #`[(translated-pattern ...)
(rule-components->syntax '#,rule-name/false translated-action ... (rule-components->syntax '#,rule-name/false translated-action ...
#:srcloc #,whole-rule-loc #:srcloc #,whole-rule-loc
#:splice? #,(syntax-property rule-name/false 'hide))])) #:splice? #,(syntax-property rule-name/false 'splice))]))

2
brag/brag/rules/rule-structs.rkt
View File

@ -12,7 +12,7 @@
(struct rule (start end lhs pattern) (struct rule (start end lhs pattern)
#:transparent) #:transparent)
(struct lhs-id (start end val hide) (struct lhs-id (start end val splice)
#:transparent) #:transparent)

2
brag/brag/rules/stx.rkt
View File

@ -33,7 +33,7 @@
(- (pos-offset (lhs-id-end (rule-lhs a-rule))) (- (pos-offset (lhs-id-end (rule-lhs a-rule)))
(pos-offset (lhs-id-start (rule-lhs a-rule)))) (pos-offset (lhs-id-start (rule-lhs a-rule))))
#f))) #f)))
'hide (lhs-id-hide (rule-lhs a-rule)))) 'splice (lhs-id-splice (rule-lhs a-rule))))
(define pattern-stx (pattern->stx source (rule-pattern a-rule))) (define pattern-stx (pattern->stx source (rule-pattern a-rule)))
(define line (pos-line (rule-start a-rule))) (define line (pos-line (rule-start a-rule)))
(define column (pos-col (rule-start a-rule))) (define column (pos-col (rule-start a-rule)))