From d0a8b8c25b6300e9decf99c4dfcc8963fa10e7b4 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Fri, 27 Feb 2015 00:17:02 -0500 Subject: [PATCH] Fix prims for quote-syntax -> quote change --- typed-racket-lib/typed-racket/base-env/class-prims.rkt | 2 +- typed-racket-lib/typed-racket/base-env/prims.rkt | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/typed-racket-lib/typed-racket/base-env/class-prims.rkt b/typed-racket-lib/typed-racket/base-env/class-prims.rkt index de3d664c..b7ed7b6e 100644 --- a/typed-racket-lib/typed-racket/base-env/class-prims.rkt +++ b/typed-racket-lib/typed-racket/base-env/class-prims.rkt @@ -183,7 +183,7 @@ (begin #,(tr:class:top-level-property (tr:class:type-annotation-property - #'(quote-syntax (:-augment name augment-type)) #t) #t) + #'(quote (:-augment name augment-type)) #t) #t) #,(tr:class:top-level-property (tr:class:type-annotation-property (syntax/loc #'class-exp (: name type)) #t) #t)))] diff --git a/typed-racket-lib/typed-racket/base-env/prims.rkt b/typed-racket-lib/typed-racket/base-env/prims.rkt index 38276fc9..9318bdd7 100644 --- a/typed-racket-lib/typed-racket/base-env/prims.rkt +++ b/typed-racket-lib/typed-racket/base-env/prims.rkt @@ -1256,13 +1256,13 @@ This file defines two sorts of primitives. All of them are provided into any mod (define-syntax (typecheck-fail stx) (syntax-parse stx [(_ orig msg:str #:covered-id var:id) - #'(quote-syntax (typecheck-fail-internal orig msg var))] + #'(quote (typecheck-fail-internal orig msg var))] [(_ orig msg:str) - #'(quote-syntax (typecheck-fail-internal orig msg #f))] + #'(quote (typecheck-fail-internal orig msg #f))] [(_ orig #:covered-id var:id) - #'(quote-syntax (typecheck-fail-internal orig "Incomplete case coverage" var))] + #'(quote (typecheck-fail-internal orig "Incomplete case coverage" var))] [(_ orig) - #'(quote-syntax (typecheck-fail-internal orig "Incomplete case coverage" #f))])) + #'(quote(typecheck-fail-internal orig "Incomplete case coverage" #f))])) (define-syntax (base-for/vector stx) (syntax-case stx ()