suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing mutator-cond

Browse Source 
svn: r18305
This commit is contained in:
Jay McCarthy 2010-02-23 19:43:36 +00:00
parent a7b5d0d8f1
commit a4dfbfb1d6
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/plai/mutator.ss
View File

@ -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

7
collects/tests/plai/gc/good-mutators/cond.ss Normal file
View File

@ -0,0 +1,7 @@
#lang plai/mutator
(allocator-setup "../good-collectors/good-collector.ss" 40)
(cond
[(zero? 3) 1111]
[#f 2222]
[#t 3333])