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
#,(defined-check ref "term" #:external #'x)
#,ref)])
(values #'#,v 0)))]
(values #`(undatum v) 0)))]
[(unquote x)
(values (syntax (undatum x)) 0)]
[(unquote . x)