Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sagittarius improvements

This commit is contained in:
retropikzel 2026-03-29 17:26:00 +03:00
parent 76ffe790d3
commit 4adf2c892c
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compile-r7rs
View File

@ -92,7 +92,7 @@ case $rnrs in
mit-scheme) cmd="mit-scheme --batch-mode --load \"\$tmpfile\" --eval \"(exit 0)\"";; mit-scheme) cmd="mit-scheme --batch-mode --load \"\$tmpfile\" --eval \"(exit 0)\"";;
mosh) cmd="MOSH_LOADPATH=$prepend_dirs:$append_dirs mosh \"\$tmpfile\"";; mosh) cmd="MOSH_LOADPATH=$prepend_dirs:$append_dirs mosh \"\$tmpfile\"";;
racket) cmd="racket -I r7rs $prepend_dirs $append_dirs --script \"\$tmpfile\"";; racket) cmd="racket -I r7rs $prepend_dirs $append_dirs --script \"\$tmpfile\"";;
sagittarius) cmd="sash -r7 $prepend_dirs $append_dirs \"\$tmpfile\"";; sagittarius) cmd="exec sash -r7 $prepend_dirs $append_dirs";;
skint) cmd="skint $prepend_dirs $append_dirs --program \"\$tmpfile\"";; skint) cmd="skint $prepend_dirs $append_dirs --program \"\$tmpfile\"";;
stklos) cmd="stklos $prepend_dirs $append_dirs \"\$tmpfile\"";; stklos) cmd="stklos $prepend_dirs $append_dirs \"\$tmpfile\"";;
tr7) case "$prepend_dirs:$append_dirs" in tr7) case "$prepend_dirs:$append_dirs" in
@ -125,6 +125,16 @@ case $COMPILE_R7RS in
cat "$input_file" cat "$input_file"
} > "$output_file" } > "$output_file"
;; ;;
sagittarius)
{
echo "#!/bin/sh"
echo "#|"
printf "$cmd"
echo ' "$0" "$@"'
echo "|#"
cat "$input_file"
} > "$output_file"
;;
*) *)
{ {
echo "#!/bin/sh" echo "#!/bin/sh"