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

oops, missed one spot

Browse Source 
svn: r18116
This commit is contained in:
Robby Findler 2010-02-17 16:00:13 +00:00
parent a627c56fb5
commit d2d84ae674
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/plai/private/random-mutator.ss
View File

@ -137,7 +137,7 @@
(values (list-ref candidate-terminals choice)
(list-ref candidate-ids choice)))))
;; obj-graph->code : obj-graph? nat -> (listof sexp)
;; obj-graph->code : obj-graph? nat nat -> (listof sexp)
(define (obj-graph->code obj-graph iterations heap-size)
(let ([graph (obj-graph-graph obj-graph)]
[init-code '()])
@ -268,7 +268,8 @@
(set-rest! set-mcdr!)))])
(for-each (λ (x) (pretty-print x port))
(obj-graph->code (random-obj-graph program-size heap-values)
iterations)))
iterations
heap-size)))
#:exists 'truncate))
(define (find-heap-values in)