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

use quote instead of quote-syntax for annotations in macro expansion

Browse Source 
The choice of identifier is arbitrary, but avoiding `quote-syntax`
may be more forward-comptiable as the macro system changes.
This commit is contained in:
Matthew Flatt 2015-02-25 21:08:02 -07:00
parent 1469306a8e
commit 4622a4cc32
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
typed-racket-lib/typed-racket/base-env/colon.rkt
View File

@ -44,7 +44,7 @@
"Declaration for `~a' provided, but `~a' has no definition"
(syntax-e #'i)
(syntax-e #'i)))
(syntax-property (syntax/loc stx (begin (quote-syntax (:-internal i ty))
(syntax-property (syntax/loc stx (begin (quote (:-internal i ty))
(#%plain-app values)))
'disappeared-use #'i)]
[(_ orig-stx _ i:id x ...)

6
typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt
View File

@ -61,7 +61,7 @@
(define-syntax-class internal-class-data
#:literal-sets (kernel-literals)
#:literals (class-internal values)
(pattern (let-values ([() (begin (quote-syntax
(pattern (let-values ([() (begin (quote
(class-internal
(#:forall type-parameter:id ...)
(#:all-inits all-init-names:id ...)
@ -173,7 +173,7 @@
#:literals (values void :-internal)
#:attributes (name type)
(pattern (let-values
([() (begin (quote-syntax (:-internal name:id type:expr))
([() (begin (quote (:-internal name:id type:expr))
(#%plain-app values))])
(#%plain-app void))))
@ -659,7 +659,7 @@
(hash-set! annotations name type))
other-exprs]
;; FIXME: use internal-forms for this instead
[(quote-syntax (:-augment name-stx:id type-stx))
[(quote (:-augment name-stx:id type-stx))
(define name (syntax-e #'name-stx))
(define type (parse-type #'type-stx))
(unless (check-duplicate-member augment-annotations name type)

10
typed-racket-lib/typed-racket/typecheck/internal-forms.rkt
View File

@ -75,11 +75,11 @@
(define-syntax-class internal^
#:attributes (value)
#:literal-sets (kernel-literals internal-form-literals)
(pattern (define-values () (begin (quote-syntax value:expr) (#%plain-app values))))
(pattern (define-values () (begin (quote value:expr) (#%plain-app values))))
;; handles form that splicing-syntax-parameterize expands to
(pattern (define-values () (letrec-syntaxes+values _ () (quote-syntax value:expr) (#%plain-app values))))
(pattern (define-values () (letrec-syntaxes+values _ () (quote value:expr) (#%plain-app values))))
;; for use in forms like classes that transform definitions
(pattern (let-values ([() (begin (quote-syntax value:expr) (#%plain-app values))])
(pattern (let-values ([() (begin (quote value:expr) (#%plain-app values))])
(#%plain-app void))))
(define-syntax (define-internal-classes stx)
@ -125,7 +125,7 @@
;; the `define-values` protocol used for other internal forms.
(define-syntax-class typecheck-failure
#:literal-sets (kernel-literals internal-literals)
(pattern (quote-syntax (typecheck-fail-internal stx message:str var))))
(pattern (quote (typecheck-fail-internal stx message:str var))))
;;; Internal form creation
(begin-for-syntax
@ -133,5 +133,5 @@
(quasisyntax/loc stx
(define-values ()
(begin
(quote-syntax #,stx)
(quote #,stx)
(#%plain-app values))))))