From 4a3e80d22bb5ab422d6f23c50e6f5a1b8fafbcd6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 19 Mar 2014 11:43:30 -0500 Subject: [PATCH] rename make-mutants because these aren't mutants in the usual sense of the testing literature --- .../benchmark/{make-mutants.rkt => apply-diffs.rkt} | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) rename pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/{make-mutants.rkt => apply-diffs.rkt} (85%) diff --git a/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt b/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/apply-diffs.rkt similarity index 85% rename from pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt rename to pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/apply-diffs.rkt index 1621310099..6bdbf5858e 100644 --- a/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt +++ b/pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/apply-diffs.rkt @@ -24,7 +24,7 @@ (define (get-directories names) (map get-directory names)) -(define (make-mutants directory) +(define (apply-diffs directory) (cond [directory (define files @@ -39,7 +39,7 @@ (copy-file base name #t) (system* (find-executable-path "patch") name (path->string f)))] [else - (map make-mutants (get-directories directories))])) + (for-each apply-diffs (get-directories directories))])) (define (get-base-stem files) (car (filter-map (λ (f) (regexp-match #rx"^(.*)-base\\.rkt$" (path->string f))) files))) @@ -50,7 +50,7 @@ (begin (when dir (unless (member dir directories) - (raise-user-error 'make-mutants.rkt - "expected one of the following directories: ~s" - directories))) - (void (make-mutants dir))))) + (raise-user-error 'apply-diffs.rkt + "expected one of the following directories: ~s, got ~a" + dir directories))) + (apply-diffs dir))))