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

make path agnostic

Browse Source
This commit is contained in:
Burke Fetscher 2014-02-17 11:58:50 -06:00
parent 18adcb5b04
commit 04c8aa7722
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt
View File

@ -1,16 +1,25 @@
#lang racket #lang racket
(require racket/cmdline) (require racket/cmdline
racket/runtime-path)
(provide directories (provide directories
get-base-stem) get-base-stem)
(define directories '("stlc" (define-runtime-path stlc "stlc")
"stlc-sub" (define-runtime-path stlc-sub "stlc-sub")
"poly-stlc"
"rbtrees" (define-runtime-path poly-stlc "poly-stlc")
"delim-cont" (define-runtime-path rbtrees "rbtrees")
"list-machine")) (define-runtime-path delim-cont "delim-cont")
(define-runtime-path list-machine "list-machine")
(define directories (list stlc
stlc-sub
poly-stlc
rbtrees
delim-cont
list-machine))
(define (make-mutants directory) (define (make-mutants directory)
(cond (cond