diff options
-rw-r--r-- | module/global.scm | 10 | ||||
-rwxr-xr-x | module/main.scm | 1 |
2 files changed, 11 insertions, 0 deletions
diff --git a/module/global.scm b/module/global.scm new file mode 100644 index 00000000..f8d0cd7f --- /dev/null +++ b/module/global.scm @@ -0,0 +1,10 @@ +(define-module (global)) + +;; TODO encapsulating these in +;; atomic boxes might be a good +;; idea. + +(define-once basedir #f) + +(export basedir) + diff --git a/module/main.scm b/module/main.scm index c90adb0c..b2899014 100755 --- a/module/main.scm +++ b/module/main.scm @@ -3,6 +3,7 @@ (when (current-filename) (add-to-load-path (dirname (current-filename)))) +(set! (@ (global) basedir) (car %load-path)) (use-modules (srfi srfi-1) (srfi srfi-41) |