Fixed a typo (syntax-quote => quote-syntax).

This commit is contained in:
Carl Eastlund 2011-10-18 16:17:54 -04:00
parent 8f804afcaa
commit bb828c312f

View File

@ -86,7 +86,7 @@
(syntax-parser #:literals [unsyntax]
[(~and orig (_ (unsyntax e:expr)))
#'(racketmodname
(unsyntax `(planet ,(make-planet-symbol (syntax-quote orig) e))))]
(unsyntax `(planet ,(make-planet-symbol (quote-syntax orig) e))))]
[(_ suffix:id/this-package)
#'(racketmodname (planet suffix.planet-id))]))