From 4684239efa63dc1b2c1cbe37ef7d3062029f5532 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:40 -0800 Subject: Import Upstream version 3b1 --- slib.sh | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'slib.sh') 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 -- cgit v1.2.3