Fix PR14207, thanks ryanc

This commit is contained in:
Jay McCarthy 2013-12-02 13:16:03 -07:00
parent eb19478f1e
commit 01b197d3eb
2 changed files with 6 additions and 1 deletions

View File

@ -0,0 +1,5 @@
#lang racket/base
(let ()
(local-require (rename-in racket/base [string rkt:strrng]))
;;=> 3:28: syntax: misplaced ellipsis in template at: ... in: ...
rkt:strrng)

View File

@ -1111,7 +1111,7 @@
(with-syntax ([(name ...) names]
[(lifted ...) lifts])
(syntax/loc stx (define-syntaxes (name ...)
(values (make-rename-transformer #'lifted) ...)))))]))
(values (make-rename-transformer (quote-syntax lifted)) ...)))))]))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)