From a4dfbfb1d67c9378274d3043f645d3c7f1d50f60 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 23 Feb 2010 19:43:36 +0000 Subject: [PATCH] Fixing mutator-cond svn: r18305 --- collects/plai/mutator.ss | 2 +- collects/tests/plai/gc/good-mutators/cond.ss | 7 +++++++ 2 files changed, 8 insertions(+), 1 deletion(-) create mode 100644 collects/tests/plai/gc/good-mutators/cond.ss diff --git a/collects/plai/mutator.ss b/collects/plai/mutator.ss index 1e8f204ab1..350beac72b 100644 --- a/collects/plai/mutator.ss +++ b/collects/plai/mutator.ss @@ -60,7 +60,7 @@ (syntax-rules (else) [(_) (mutator-begin)] [(_ [else e ...]) (mutator-begin e ...)] - [(_ [q ans] e ...) (mutator-if q ans (cond e ...))])) + [(_ [q ans] e ...) (mutator-if q ans (mutator-cond e ...))])) (define-syntax mutator-case (syntax-rules (else) [(_ value diff --git a/collects/tests/plai/gc/good-mutators/cond.ss b/collects/tests/plai/gc/good-mutators/cond.ss new file mode 100644 index 0000000000..2e004f6e71 --- /dev/null +++ b/collects/tests/plai/gc/good-mutators/cond.ss @@ -0,0 +1,7 @@ +#lang plai/mutator +(allocator-setup "../good-collectors/good-collector.ss" 40) + +(cond + [(zero? 3) 1111] + [#f 2222] + [#t 3333]) \ No newline at end of file