Undo this for now
This commit is contained in:
parent
0f6a5195b3
commit
78a69de14f
|
@ -11,7 +11,9 @@
|
||||||
(define default-cmd
|
(define default-cmd
|
||||||
(and suffix
|
(and suffix
|
||||||
(case (string->symbol (bytes->string/utf-8 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" *)]
|
[(rktl) '(racket "-f" *)]
|
||||||
[else #f])))
|
[else #f])))
|
||||||
(define (replace-* s)
|
(define (replace-* s)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user