scripts added
This commit is contained in:
@@ -68,7 +68,7 @@
|
||||
(re #px"[/><]")
|
||||
(mk-name (lambda (name ext) (build-path dir
|
||||
(string-append
|
||||
(regexp-replace* name re "_") "." ext))))
|
||||
(regexp-replace* re name "_") "." ext))))
|
||||
)
|
||||
|
||||
(displayln (format "making ~a / ~a" dir name))
|
||||
|
||||
Reference in New Issue
Block a user