fix the expansion of beginner-true and beginner-false so

they don't throw away source locations.

related to PR 12253
This commit is contained in:
Robby Findler 2011-10-03 17:11:19 -05:00
parent c44d138ed1
commit 25413a4c05

View File

@ -477,7 +477,7 @@
#'id
"expected a function after the open parenthesis, but found ~a"
(syntax-e #'id))]
[_ (datum->syntax stx val)]))))
[_ (datum->syntax stx val stx)]))))
(define beginner-true/proc (make-constant-expander #t))
(define beginner-false/proc (make-constant-expander #f))