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

redex: adjust benchmark contracts and provides

Browse Source
This commit is contained in:
Burke Fetscher 2014-06-18 16:20:31 -05:00
parent ae23c070f1
commit b10f178e98
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/redex-pkgs/redex-benchmark/redex/benchmark.rkt
View File

@ -11,4 +11,5 @@
run-gen-and-check/mods run-gen-and-check/mods
bmark-log-directory bmark-log-directory
benchmark-logging-to benchmark-logging-to
bmark-log) bmark-log
(struct-out run-results))

22
pkgs/redex-pkgs/redex-benchmark/redex/benchmark/private/gen-run.rkt
View File

@ -14,18 +14,18 @@
(provide/contract (provide/contract
[run-gen-and-check/mods [run-gen-and-check/mods
(-> module-path? (->* (module-path?
module-path? module-path?
natural-number/c natural-number/c)
#:name string? (#:name string?)
run-results?)] run-results?)]
[run-gen-and-check [run-gen-and-check
(-> (-> (-> any/c)) (->* ((-> (-> any/c))
(-> any/c boolean?) (-> any/c boolean?)
natural-number/c natural-number/c)
#:name string? (#:name string?
#:type symbol? #:type symbol?)
run-results?)]) run-results?)])
(define (run-gen-and-check/mods gen-mod-path check-mod-path seconds #:name [name "unknown"]) (define (run-gen-and-check/mods gen-mod-path check-mod-path seconds #:name [name "unknown"])
(define get-gen (dynamic-require gen-mod-path 'get-generator)) (define get-gen (dynamic-require gen-mod-path 'get-generator))