diff options
| author | Thomas Bushnell, BSG <tb@debian.org> | 2008-02-04 20:29:13 -0500 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:41 -0800 |
| commit | 71dab84adaa579f9386dd8ee09006d3cac625723 (patch) | |
| tree | 8022514642d25edffdb4bdd130020674b0efd844 /slib.sh | |
| parent | 897451458bd8eec628c7bbfaccba0dd069830f0f (diff) | |
| parent | 4684239efa63dc1b2c1cbe37ef7d3062029f5532 (diff) | |
| download | slib-71dab84adaa579f9386dd8ee09006d3cac625723.tar.gz slib-71dab84adaa579f9386dd8ee09006d3cac625723.zip | |
Import Debian changes 3b1-1debian/3b1-1
slib (3b1-1) unstable; urgency=low
* New upstream release.
* guile.init (library-vicinity): Repeat change from 3a4-2.
* slib.texi (Library Catalogs): Repeat change from 3a3-3.
* slib.sh: Repeat change from 3a5-3.
* slib.1: Repeat change from 3a5-4.
* Makefile: Repeat change from 3a2-1.
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 |