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

set things up to remove the cache

Browse Source 
svn: r4234
This commit is contained in:
Robby Findler 2006-09-04 01:55:59 +00:00
parent d10a0bec24
commit 204bc48a50
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/tests/mzscheme/benchmarks/mz/redsem.scm
View File

@ -1,7 +1,20 @@
(require (planet "beginner.ss" ("robby" "redex.plt") "examples")) #|
Time the cache-less version of the pattern matcher
under the theory that if this speeds up, the cache
can be used less, leading to less memory use, and
better performance.
(and I'm pretty sure that measuing the cache isn't
super useful.)
Robby
|#
(require (planet "reduction-semantics.ss" ("robby" "redex.plt" 2 4)))
(set-cache-size! #f)
(require (planet "beginner.ss" ("robby" "redex.plt" 2 4) "examples"))
(collect-garbage) (collect-garbage)
(printf "Now\n") (printf "Now\n")
(time (begin (time (begin (run-tests) (run-tests) (run-tests)))
(run-tests) (run-tests) (run-tests) (run-tests) (run-tests)
(run-tests) (run-tests) (run-tests) (run-tests) (run-tests)
))