GitHub Sale: sign up for any paid plan this week and pay nothing until January 1, 2009!  [ hide ]

KirinDave / arc pull request fork watch download tarball
public
Fork of nex3/arc
Description: Paul Graham's Brand New Lisp
Homepage: http://arclanguage.org
Clone URL: git://github.com/KirinDave/arc.git
arc / arc.sh
100755 22 lines (15 sloc) 0.353 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/bin/bash
 
arc_dir=$0
 
if [ -L "$0" ]; then
  arc_dir=$(readlink "$0")
fi
 
arc_dir=$(dirname "$arc_dir")
 
if [ "$(type -p rlwrap)" -a ! "$1" = "--no-rl" -a -z "${EMACS}" ]; then
  rl="rlwrap -C arc"
fi
 
if [ "$1" = "--no-rl" ]; then
  argv="${@:2}"
else
  argv="$@"
fi
 
$rl mzscheme --no-init-file --mute-banner --load-cd  "$arc_dir/as.scm" -- $argv