missed a place to add an undatum

This commit is contained in:
Robby Findler 2011-12-14 06:46:21 -06:00
parent c91d004729
commit a88d9ca116

View File

@ -81,7 +81,7 @@
(with-syntax ([v #`(begin (with-syntax ([v #`(begin
#,(defined-check ref "term" #:external #'x) #,(defined-check ref "term" #:external #'x)
#,ref)]) #,ref)])
(values #'#,v 0)))] (values #`(undatum v) 0)))]
[(unquote x) [(unquote x)
(values (syntax (undatum x)) 0)] (values (syntax (undatum x)) 0)]
[(unquote . x) [(unquote . x)