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

Fixing problem found at Brown

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-17 04:56:55 -07:00
parent f78e2af4e1
commit 24dbffaf3b
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/plai/mutator.rkt
View File

@ -110,7 +110,7 @@
[(_) (mutator-app void)] [(_) (mutator-app void)]
[(_ e) e] [(_ e) e]
[(_ fe e ...) [(_ fe e ...)
(mutator-let ([tmp fe]) (mutator-begin e ...))])) (let ([tmp fe]) (mutator-begin e ...))]))
; Real Macros ; Real Macros
(define-syntax-rule (mutator-define-values (id ...) e) (define-syntax-rule (mutator-define-values (id ...) e)

15
collects/tests/plai/gc/good-mutators/thunks.rkt Executable file
View File

@ -0,0 +1,15 @@
#lang plai/mutator
(allocator-setup "../good-collectors/good-collector.ss" 4)
; 2
(define thunker
(lambda ()
; 2
'alligator
; 2
'bananna
; 2
'frog))
; 4 total
(thunker)