From 68986fe0410584c6934c835bb0ee784655f5f8c5 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Tue, 11 Jan 2022 22:01:23 -0800
Subject: Move scheme compiler into a separate directory.

---
 csc/guile-compat/compat.scm | 3 +++
 csc/guile-compat/csc.fish   | 2 ++
 csc/guile-compat/lib/csc    | 1 +
 3 files changed, 6 insertions(+)
 create mode 100644 csc/guile-compat/compat.scm
 create mode 100755 csc/guile-compat/csc.fish
 create mode 120000 csc/guile-compat/lib/csc

(limited to 'csc/guile-compat')

diff --git a/csc/guile-compat/compat.scm b/csc/guile-compat/compat.scm
new file mode 100644
index 0000000..5997267
--- /dev/null
+++ b/csc/guile-compat/compat.scm
@@ -0,0 +1,3 @@
+(install-r7rs!)
+(set! %load-extensions (cons ".csc" %load-extensions))
+(add-to-load-path (string-append (dirname (current-filename)) "/lib"))
diff --git a/csc/guile-compat/csc.fish b/csc/guile-compat/csc.fish
new file mode 100755
index 0000000..ffda4d2
--- /dev/null
+++ b/csc/guile-compat/csc.fish
@@ -0,0 +1,2 @@
+#!/usr/bin/env fish
+guile -l (dirname (status --current-filename))/compat.scm $argv
diff --git a/csc/guile-compat/lib/csc b/csc/guile-compat/lib/csc
new file mode 120000
index 0000000..c25bddb
--- /dev/null
+++ b/csc/guile-compat/lib/csc
@@ -0,0 +1 @@
+../..
\ No newline at end of file
-- 
cgit v1.3.1