(module pre-installer mzscheme (provide pre-installer) (define (pre-installer plthome package-dir) (let ((dir (current-directory))) (current-directory package-dir) ; (if (file-exists? "../../hwiki-plugins.scm") ; (delete-file "../../hwiki-plugins.scm")) ; (copy-file "examples/hwiki-plugins.scm" "../../hwiki-plugins.scm") ; (if (file-exists? "../../hwiki-sqli.scm") ; (delete-file "../../hwiki-sqli.scm")) ; (copy-file "examples/hwiki-sqli.scm" "../../hwiki-sqli.scm"))) (current-directory dir) )) )