diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 18:18:23 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 18:18:23 +0200 |
| commit | 3fe27b00588c442af4fca49f9c106c0486bd235a (patch) | |
| tree | dbbcdfa04282335e57d6fe60a0afd41bfbcc6bab | |
| parent | Add "missing" regex import. (diff) | |
| download | calp-3fe27b00588c442af4fca49f9c106c0486bd235a.tar.gz calp-3fe27b00588c442af4fca49f9c106c0486bd235a.tar.xz | |
Add global basedir var.
| -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) |