|
FLAGS="--dump-check - --dump-erase - --dump-scheme - --color=none --width=100000"
|
|
|
|
check() {
|
|
$1 $FLAGS "$2" -P check 2>&1
|
|
}
|
|
|
|
erase() {
|
|
$1 $FLAGS "$2" -P erase 2>&1
|
|
}
|
|
|
|
scheme() {
|
|
$1 $FLAGS "$2" -P scheme 2>&1
|
|
}
|
|
|
|
compile_run() {
|
|
$1 $FLAGS "$2" -o "$3" 2>&1
|
|
chezscheme --program "$3"
|
|
}
|