datum doesn't need to be anfd

This commit is contained in:
Jay McCarthy 2010-10-28 16:07:43 -06:00
parent 58febe21a0
commit 69fb56189a

View File

@ -235,7 +235,7 @@
(define-syntax (mutator-datum stx)
(syntax-case stx ()
[(_ . e)
(quasisyntax/loc stx (mutator-app collector:alloc-flat (#%datum . e)))]))
(quasisyntax/loc stx (mutator-anf-app collector:alloc-flat (#%datum . e)))]))
(define-syntax (mutator-top-interaction stx)
(syntax-case stx (require provide mutator-define mutator-define-values test/value=? import-primitives)