From 69fb56189a6ab91a5e0f3d938f6b34961878e3a2 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 28 Oct 2010 16:07:43 -0600 Subject: [PATCH] datum doesn't need to be anfd --- collects/plai/mutator.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/plai/mutator.rkt b/collects/plai/mutator.rkt index 34f636960e..6d34d1bebc 100644 --- a/collects/plai/mutator.rkt +++ b/collects/plai/mutator.rkt @@ -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)