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