make path agnostic

This commit is contained in:
Burke Fetscher 2014-02-17 11:58:50 -06:00
parent 18adcb5b04
commit 04c8aa7722

View File

@ -1,16 +1,25 @@
#lang racket
(require racket/cmdline)
(require racket/cmdline
racket/runtime-path)
(provide directories
get-base-stem)
(define directories '("stlc"
"stlc-sub"
"poly-stlc"
"rbtrees"
"delim-cont"
"list-machine"))
(define-runtime-path stlc "stlc")
(define-runtime-path stlc-sub "stlc-sub")
(define-runtime-path poly-stlc "poly-stlc")
(define-runtime-path rbtrees "rbtrees")
(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)
(cond