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

syntax/parse: remove unused field from rhs struct

Browse Source
This commit is contained in:
Ryan Culpepper 2016-07-31 17:39:52 -04:00
parent 22b5d6b2da
commit 71fbe4ad7d
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/syntax/parse/private/parse.rkt
View File

@ -114,7 +114,7 @@
(define (rhs->parser name formals relsattrs the-rhs splicing?) (define (rhs->parser name formals relsattrs the-rhs splicing?)
(define-values (transparent? description variants defs commit? delimit-cut?) (define-values (transparent? description variants defs commit? delimit-cut?)
(match the-rhs (match the-rhs
[(rhs _ transparent? description variants defs commit? delimit-cut? _) [(rhs _ transparent? description variants defs commit? delimit-cut?)
(values transparent? description variants defs commit? delimit-cut?)])) (values transparent? description variants defs commit? delimit-cut?)]))
(define vdefss (map variant-definitions variants)) (define vdefss (map variant-definitions variants))
(define formals* (rewrite-formals formals #'x #'rl)) (define formals* (rewrite-formals formals #'x #'rl))

3
racket/collects/syntax/parse/private/rep-data.rkt
View File

@ -24,7 +24,7 @@
(define (stxclass/h? x) (define (stxclass/h? x)
(and (stxclass? x) (stxclass-splicing? x))) (and (stxclass? x) (stxclass-splicing? x)))
;; An RHS is #s(rhs SAttrs Bool Stx/#f Variants Stxs Bool Bool Id/#f) ;; An RHS is #s(rhs SAttrs Bool Stx/#f Variants Stxs Bool Bool)
(define-struct rhs (define-struct rhs
(attrs ;; (Listof Sattr) (attrs ;; (Listof Sattr)
transparent? ;; Bool transparent? ;; Bool
@ -33,7 +33,6 @@
definitions ;; (Listof Stx), aux definitions from txlifts, local conventions?, etc definitions ;; (Listof Stx), aux definitions from txlifts, local conventions?, etc
commit? ;; Bool commit? ;; Bool
delimit-cut? ;; Bool delimit-cut? ;; Bool
pred ;; ???
) #:prefab) ) #:prefab)
#| #|

2
racket/collects/syntax/parse/private/rep.rkt
View File

@ -178,7 +178,7 @@
(intersect-sattrss (map variant-attrs variants)))]) (intersect-sattrss (map variant-attrs variants)))])
(make rhs sattrs transp? description variants (make rhs sattrs transp? description variants
(append (get-txlifts-as-definitions) defs) (append (get-txlifts-as-definitions) defs)
commit? delimit-cut? #f)))))) commit? delimit-cut?))))))
(define (parse-rhs/part1 stx splicing? strict?) (define (parse-rhs/part1 stx splicing? strict?)
(define-values (chunks rest) (define-values (chunks rest)