From 3fe27b00588c442af4fca49f9c106c0486bd235a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 30 Apr 2020 18:18:23 +0200
Subject: Add global basedir var.

---
 module/global.scm | 10 ++++++++++
 module/main.scm   |  1 +
 2 files changed, 11 insertions(+)
 create mode 100644 module/global.scm

(limited to 'module')

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)
-- 
cgit v1.2.3