Using sls suffix

This commit is contained in:
Jay McCarthy 2010-04-27 09:19:21 -06:00
parent 96a3f47ea0
commit 86be73f78f

View File

@ -7,7 +7,7 @@
(define suffix (filename-extension pth))
(and suffix
(ormap (lambda (bs) (bytes=? suffix bs))
(list #"ss" #"scm" #"scrbl" #"rkt"))))
(list #"ss" #"scm" #"scrbl" #"rkt" #"sls"))))
(define PROP:command-line "drdr:command-line")
(define PROP:timeout "drdr:timeout")