suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/lang/private/teach.rkt
View File

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