diff options
-rwxr-xr-x | bin/tissue | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -406,6 +406,13 @@ HOSTNAME." (call-with-temporary-directory (lambda (temporary-repository-clone) (clone (git-top-level) temporary-repository-clone) + ;; Add the top level of the git repository to the + ;; load path since there may be user-written + ;; modules in the repository. + ;; TODO: Though not strictly required, it would + ;; be better to remove the added load path once + ;; done. + (add-to-load-path temporary-repository-clone) ;; Index. (unless (file-exists? "xapian") (mkdir "xapian")) @@ -482,6 +489,12 @@ Pull latest from upstream repositories. (display (condition-message c) (current-error-port)) (newline (current-error-port)) (exit #f))) + ;; Add the top level of the git repository to the load path since + ;; there may be user-written modules in the repository. + (match args + ((_ (or "repl" "web-dev") _ ...) + (add-to-load-path (git-top-level))) + (_ #t)) (match args ((_ (or "-h" "--help")) (print-usage)) |