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