ui: Add CWD to Guile load path.

* haunt/ui.scm (haunt-main): Add CWD to Guile load path.
2015-10-12 19:05:50 -04:00 · 2015-10-12 19:05:50 -04:00 · 288913eff2
parent 6ab9322709
commit 288913eff2
1 changed files with 3 additions and 0 deletions
--- a/haunt/ui.scm
+++ b/haunt/ui.scm
@ -124,6 +124,9 @@ There is NO WARRANTY, to the extent permitted by law.~%"
      (apply command-main args))))

 (define* (haunt-main arg0 . args)
+  ;; Add haunt site directory to Guile's load path so that user's can
+  ;; easily import their own modules.
+  (add-to-load-path (getcwd))
  (setlocale LC_ALL "")
  (match args
    (()