;;; Global constants
-(define scratchy-version "1.4.0")
+(define scratchy-version "1.4.1")
(define scratchy-footer
(conc "\n"
(if (legal-script-filename? filename config)
(let* ((sexp (with-input-from-file filename read))
(script-result (with-selector-dir
- selector config
+ (pathname-directory selector) config
(lambda ()
(apply (eval sexp) arguments)))))
(when (pair? script-result)