From f6823f7c06cda1e27f374e6b10bc9fccd9e855d2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 29 Oct 2019 17:40:51 +0100
Subject: Move env init out from main.scm.

---
 env             | 12 ++++++++++++
 module/main.scm |  9 +--------
 2 files changed, 13 insertions(+), 8 deletions(-)
 create mode 100755 env

diff --git a/env b/env
new file mode 100755
index 00000000..2ba1cd1d
--- /dev/null
+++ b/env
@@ -0,0 +1,12 @@
+# -*- mode: sh -*-
+
+root=$(dirname $(realpath $BASH_SOURCE))
+
+GUILE_LOAD_PATH="$root/module:$GUILE_LOAD_PATH"
+GUILE_LOAD_COMPILED_PATH="$root/obj/module:$GUILE_LOAD_COMPILED_PATH"
+LD_LIBRARY_PATH="$root/lib:$LD_LIBRARY_PATH"
+
+export GUILE_LOAD_PATH GUILE_LOAD_COMPILED_PATH LD_LIBRARY_PATH
+export GUILE_AUTO_COMPILE=0
+
+# exec "$@"
diff --git a/module/main.scm b/module/main.scm
index ce327f39..dbd8ae35 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -1,14 +1,7 @@
 #!/bin/bash
 # -*- mode: scheme -*-
 
-root=$(dirname $(dirname $(realpath $0)))
-
-GUILE_LOAD_PATH="$root/module:$GUILE_LOAD_PATH"
-GUILE_LOAD_COMPILED_PATH="$root/obj/module:$GUILE_LOAD_COMPILED_PATH"
-LD_LIBRARY_PATH="$root/lib:$LD_LIBRARY_PATH"
-
-export GUILE_LOAD_PATH GUILE_LOAD_COMPILED_PATH LD_LIBRARY_PATH
-export GUILE_AUTO_COMPILE=0
+. $(dirname $(dirname $(realpath $0)))/env
 
 exec guile -e main -s $0 "$@"
 !#
-- 
cgit v1.2.3