aboutsummaryrefslogtreecommitdiffstats
path: root/slib.sh
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:40 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:40 -0800
commit4684239efa63dc1b2c1cbe37ef7d3062029f5532 (patch)
tree606a687e9279e9bf6048925878968df9875a4973 /slib.sh
parent64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (diff)
downloadslib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.tar.gz
slib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.zip
Import Upstream version 3b1upstream/3b1
Diffstat (limited to 'slib.sh')
-rwxr-xr-xslib.sh10
1 files changed, 7 insertions, 3 deletions
diff --git a/slib.sh b/slib.sh
index 6948389..2401d14 100755
--- a/slib.sh
+++ b/slib.sh
@@ -29,8 +29,8 @@ Usage: slib SCHEME
Usage: slib
Initialize SLIB session using executable (MIT) 'scheme', 'scm',
- 'gsi', 'mzscheme', 'guile', 'slib48', 'scmlit', 'elk', 'sisc', or
- 'kawa'."
+ 'gsi', 'mzscheme', 'guile', 'slib48', 'larceny', 'scmlit', 'elk',
+ 'sisc', or 'kawa'."
case "$1" in
-v | --ver*) echo slib "$VERSION"; exit 0;;
@@ -57,6 +57,8 @@ if [ -z "$command" ]; then
command=guile; implementation=gui
elif type slib48>/dev/null 2>&1; then
command=slib48; implementation=s48
+ elif type larceny>/dev/null 2>&1; then
+ command=larceny; implementation=lar
elif type scmlit>/dev/null 2>&1; then
command=scmlit; implementation=scm
elif type elk>/dev/null 2>&1; then
@@ -79,6 +81,7 @@ elif type $command>/dev/null 2>&1; then
elif echo ${SPEW} | grep 'UMB Scheme'>/dev/null 2>&1; then implementation=umb
elif echo ${SPEW} | grep 'scheme48' >/dev/null 2>&1; then implementation=s48
elif echo ${SPEW} | grep 'MzScheme' >/dev/null 2>&1; then implementation=plt
+ elif echo ${SPEW} | grep 'larceny' >/dev/null 2>&1; then implementation=lar
elif echo ${SPEW} | grep 'Guile' >/dev/null 2>&1; then implementation=gui
elif echo ${SPEW} | grep 'SCM' >/dev/null 2>&1; then implementation=scm
elif echo ${SPEW} | grep 'SISC' >/dev/null 2>&1; then implementation=ssc
@@ -123,8 +126,9 @@ case $implementation in
gam) exec $command -:s ${SCHEME_LIBRARY_PATH}gambit.init - "$@";;
ssc) exec $command -e "(load \"${SCHEME_LIBRARY_PATH}sisc.init\")" -- "$@";;
kwa) exec $command -f ${SCHEME_LIBRARY_PATH}kawa.init -- "$@";;
- plt) exec $command -f ${SCHEME_LIBRARY_PATH}DrScheme.init "$@";;
+ plt) exec $command -f ${SCHEME_LIBRARY_PATH}mzscheme.init "$@";;
gui) exec $command -l ${SCHEME_LIBRARY_PATH}guile.init "$@";;
+ lar) exec $command -- -e "(require 'srfi-96)" "$@";;
mit) exec $command -load ${SCHEME_LIBRARY_PATH}mitscheme.init "$@";;
s48) if [ -f "${S48_VICINITY}slib.image" ]; then
exec scheme48 -h 4000000 -i ${S48_VICINITY}slib.image