diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:40 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:40 -0800 |
| commit | 4684239efa63dc1b2c1cbe37ef7d3062029f5532 (patch) | |
| tree | 606a687e9279e9bf6048925878968df9875a4973 /slib.sh | |
| parent | 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (diff) | |
| download | slib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.tar.gz slib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.zip | |
Import Upstream version 3b1upstream/3b1
Diffstat (limited to 'slib.sh')
| -rwxr-xr-x | slib.sh | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -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 |