small cleanup

This commit is contained in:
Stephen Chang 2015-06-12 19:33:06 -04:00
parent 3d422803f6
commit ad02e586ad

View File

@ -37,7 +37,6 @@
(syntax-parse stx
[(_ τ:id)
#:with τ? (format-id #'τ "~a?" #'τ)
#:with tmp (generate-temporary)
#'(begin
(provide τ (for-syntax τ?))
(define-syntax (τ stx)