From 288913eff2fc308354a373c39463e48bb879ea91 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 12 Oct 2015 19:05:50 -0400
Subject: ui: Add CWD to Guile load path.

* haunt/ui.scm (haunt-main): Add CWD to Guile load path.
---
 haunt/ui.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/haunt/ui.scm b/haunt/ui.scm
index fd211e3..5ae7dd2 100644
--- 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
     (()
-- 
cgit v1.2.3