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

Make opt-parent shared across different uses.

Browse Source
This commit is contained in:
Eric Dobson 2013-09-02 15:04:18 -07:00
parent f8f989e8c6
commit a56b1f11fd
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/prims.rkt
View File

@ -79,6 +79,13 @@ This file defines two sorts of primitives. All of them are provided into any mod
(define-for-syntax (ignore stx) (ignore-property stx #t)) (define-for-syntax (ignore stx) (ignore-property stx #t))
(begin-for-syntax
(define-syntax-class opt-parent
#:attributes (nm parent)
(pattern nm:id #:with parent #'#f)
(pattern (nm:id parent:id))))
(define-syntaxes (require/typed-legacy require/typed) (define-syntaxes (require/typed-legacy require/typed)
(let () (let ()
(define-syntax-class opt-rename (define-syntax-class opt-rename
@ -89,12 +96,6 @@ This file defines two sorts of primitives. All of them are provided into any mod
#:with spec #'(orig-nm internal-nm) #:with spec #'(orig-nm internal-nm)
#:with nm #'internal-nm)) #:with nm #'internal-nm))
(define-syntax-class opt-parent
#:attributes (nm parent)
(pattern nm:id
#:with parent #'#f)
(pattern (nm:id parent:id)))
(define-syntax-class simple-clause (define-syntax-class simple-clause
#:attributes (nm ty) #:attributes (nm ty)
(pattern [nm:opt-rename ty])) (pattern [nm:opt-rename ty]))
@ -670,9 +671,6 @@ This file defines two sorts of primitives. All of them are provided into any mod
(define-syntaxes (require-typed-struct-legacy (define-syntaxes (require-typed-struct-legacy
require-typed-struct) require-typed-struct)
(let () (let ()
(define-syntax-class opt-parent
(pattern nm:id #:attr parent #'#f)
(pattern (nm:id parent:id)))
(define-splicing-syntax-class (constructor-term legacy struct-name) (define-splicing-syntax-class (constructor-term legacy struct-name)
(pattern (~seq) #:fail-when legacy #f #:attr name struct-name #:attr extra #f) (pattern (~seq) #:fail-when legacy #f #:attr name struct-name #:attr extra #f)