ggxi

#!/usr/bin/env bash
# This script starts a Gerbil interpreter with all of Glow loaded,
# so you can interact with it at the REPL.
# You can use this file as your M-x run-scheme interpreter
# by putting a line such as the following one in your .emacs
# then using e.g. gerbil-mode:
# (setq scheme-program-name "/home/fare/src/fare/glow/ggxi")

this=$0
here=$(dirname "$this")

. "$here/env.sh"

# After #936 it should be just gxi -L "${here}/all-glow.ss\" "$@"

exprs="(load\"${here}/all-glow.ss\")"
case "${1-}" in
    --swank) exprs="$expr(spawn/name'swank\`,start-swank)" ; shift ;;
    *) swank=() ;;
esac
if [ $# = 0 ] ; then
    exprs="$exprs(gerbil/main#init-interactive!)(##repl-debug\`,#f\`,#f\`,#t)"
fi
exec gxi -e "(begin$exprs)" "$@"