From f9ffdeeb208d2b327d847a021b7ed0de6096a5cd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 3 Apr 2015 18:03:37 -0500 Subject: [PATCH] avoid redundant syntax-property propagation Insteda of propagating a property manually, allow the `syntax-track-origin` operation in macro expansion to do it. Otherwise, properties turn into pairs of duplicate values. --- racket/collects/racket/private/pre-base.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/racket/collects/racket/private/pre-base.rkt b/racket/collects/racket/private/pre-base.rkt index 8819acf0ce..8336f08866 100644 --- a/racket/collects/racket/private/pre-base.rkt +++ b/racket/collects/racket/private/pre-base.rkt @@ -34,7 +34,7 @@ (lambda (stx) (let-values ([(here) (quote-syntax here)]) (if (symbol? (syntax-e stx)) - (datum->syntax here 'new-apply-proc stx stx) + (datum->syntax here 'new-apply-proc stx) (let-values ([(l) (syntax->list stx)]) (let-values ([(app) (if (if l (ormap (lambda (x) (keyword? (syntax-e x))) l) @@ -46,7 +46,6 @@ stx (cons (datum->syntax here app fst fst) (cdr (syntax-e stx))) - stx stx))))))) (define-values (new-keyword-apply)