Undo this for now

This commit is contained in:
Jay McCarthy 2013-02-04 08:10:59 -07:00
parent 0f6a5195b3
commit 78a69de14f

View File

@ -11,7 +11,9 @@
(define default-cmd
(and suffix
(case (string->symbol (bytes->string/utf-8 suffix))
[(ss scm scrbl rkt sls) '(raco "test" "-q" "-s" "main" "-s" "test" *)]
[(ss scm scrbl rkt sls)
'(raco "test" "-q" "-s" "main" "-s" "test" *)
'(racket *)]
[(rktl) '(racket "-f" *)]
[else #f])))
(define (replace-* s)