Allow full Clojure usage from within standard bedlam scripts.

igorhvr · igorhvr · commit b2770e452fd3 · 2019-08-19T17:23:37.000+01:00
diff --git a/bin/bedlam-script b/bin/bedlam-script
@@ -5,5 +5,7 @@
 SCHEMEENV=`basename $0`
 SOURCEFILE=$1
 
+. /base/bedlam/schejure/dtclasspath
+
 /base/bedlam/sisc/sisc-1.16.6/sisc -x -e "(begin (define iasylum-bedlam-location \"/base/bedlam/\") (load (string-append iasylum-bedlam-location \"iasylum/init.scm\")))(srfi-22-prepare '$SCHEMEENV \"$SOURCEFILE\")" -c main-hook -- "$@"
 
diff --git a/s b/s
@@ -1,2 +1,3 @@
 #!/bin/bash
+. /base/bedlam/schejure/dtclasspath
 /base/bedlam/sisc/sisc-1.16.6/sisc -e ' (begin (define iasylum-bedlam-location "/base/bedlam/") (load (string-append iasylum-bedlam-location "iasylum/init.scm")) "bedlam-enabled sisc started.")' "$@"

Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`#!/bin/bash`
	`2`	`+. /base/bedlam/schejure/dtclasspath`
`2`	`3`	`/base/bedlam/sisc/sisc-1.16.6/sisc -e ' (begin (define iasylum-bedlam-location "/base/bedlam/") (load (string-append iasylum-bedlam-location "iasylum/init.scm")) "bedlam-enabled sisc started.")' "$@"`