From 04c8aa7722e6aa9bf65234d80b9d77cc26ff7cc5 Mon Sep 17 00:00:00 2001
From: Burke Fetscher <bfetscher@racket-lang.org>
Date: Mon, 17 Feb 2014 11:58:50 -0600
Subject: [PATCH] make path agnostic

---
 .../redex/examples/benchmark/make-mutants.rkt | 23 +++++++++++++------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt b/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt
index f54bbf3303..2175d998a6 100644
--- a/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt
+++ b/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt
@@ -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