Preventing symbols getting to system*

2013-08-09 14:44:10 -06:00 · 2013-08-09 14:44:10 -06:00 · 5d10d60340
commit 5d10d60340
parent 55f25167b7
1 changed files with 4 additions and 1 deletions
--- a/pkgs/racket-pkgs/racket-test/tests/racket/benchmarks/shootout/auto.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/benchmarks/shootout/auto.rkt
@ -172,7 +172,10 @@ exec racket -qu "$0" ${1+"$@"}
                    (let ([out (open-output-bytes)])
                      (unless (parameterize ([current-output-port out]
                                             [current-error-port out])
-                                ((impl-run i) bm))
+                                ((impl-run i) 
+                                 (if (symbol? bm)
+                                   (format "~a" bm)
+                                   bm)))
                        (error 'auto "~a\nrun failed ~a" (get-output-bytes out) bm))
                      (rprintf "[~a ~a ~s ~a]\n"
                               impl