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

Compare commits

base: Retropikzel:1543e1d62c4c5ac59c2f50192a321fe1b85ea403
Branches Tags
Retropikzel:main
...
compare: Retropikzel:5f574a47dfa110ea5069ca22fa14af56df501d04
Branches Tags
Retropikzel:main

2 Commits
1543e1d62c ... 5f574a47df

Author SHA1 Message Date
retropikzel 5f574a47df Fix tests on Racket 2026-03-13 14:27:53 +02:00
retropikzel 3a7e8f61ab Remove support for mit-scheme 2026-03-13 14:08:21 +02:00
3 changed files with 6 additions and 5 deletions
Show Stats Expand all files Collapse all files

2
Jenkinsfile vendored
View File

@ -15,7 +15,7 @@ pipeline {
parameters {
string(name: 'R6RS_SCHEMES', defaultValue: 'capyscheme chezscheme guile ikarus ironscheme larceny loko mosh racket sagittarius ypsilon', description: '')
string(name: 'R7RS_SCHEMES', defaultValue: 'capyscheme chibi chicken cyclone foment gauche guile kawa larceny loko meevax mit-scheme mosh racket sagittarius skint stklos tr7 ypsilon', description: '')
string(name: 'R7RS_SCHEMES', defaultValue: 'capyscheme chibi chicken cyclone foment gauche guile kawa larceny loko meevax mosh racket sagittarius skint stklos tr7 ypsilon', description: '')
}
stages {

6
Makefile
View File

@ -19,8 +19,10 @@ test:
@mkdir -p .tmp/libs/foo
@mkdir -p .tmp/other_libs
@# R6RS testfiles
@printf "(import (rnrs) (foo bar))\n(baz)" > .tmp/main.sps
@printf "(library (foo bar) (export baz) (import (rnrs)) (define (baz) (display \"Hello from bar.sls\") (newline)))" > .tmp/libs/foo/bar.sls
@printf "#!r6rs\n(import (rnrs) (foo bar))\n(baz)" > .tmp/main.sps
@printf "#!r6rs\n(library (foo bar) (export baz) (import (rnrs)) (define (baz) (display \"Hello from bar.sls\") (newline)))" > .tmp/libs/foo/bar.sls
@# Racket compability testfiles
@printf "#lang r7rs (import (scheme base)) (include \"bar.sld\")" > .tmp/libs/foo/bar.rkt
@# R7RS testfiles
@printf "(import (scheme base) (scheme write) (foo bar))\n(baz)" > .tmp/main.scm
@printf "(define-library (foo bar) (import (scheme base) (scheme write)) (export baz) (include \"bar.scm\"))" > .tmp/libs/foo/bar.sld

3
compile-r7rs
View File

@ -3,7 +3,7 @@
set -eu
if [ "${COMPILE_R7RS:-}" = "" ]; then
echo "COMPILE_R7RS not set, possible values:"
echo "capyscheme chezscheme chibi chicken cyclone foment gauche guile ikarus ironscheme kawa larceny loko meevax mosh mit-scheme racket sagittarius skint stklos tr7 ypsilon"
echo "capyscheme chezscheme chibi chicken cyclone foment gauche guile ikarus ironscheme kawa larceny loko meevax mosh racket sagittarius skint stklos tr7 ypsilon"
exit 1
fi
@ -84,7 +84,6 @@ case $rnrs in
loko) LOKO_LIBRARY_PATH="$prepend_dirs:$append_dirs" loko -std=r7rs --compile "$input_file";
if [ ! "${input_file%.scm}" = "$output_file" ]; then mv -f "${input_file%.sps}" "$output_file"; fi;;
meevax) echo "$prefix meevax $prepend_dirs $append_dirs" >> "$output_file";;
mit-scheme) echo "$prefix mit-scheme --batch-mode $prepend_dirs $append_dirs" >> "$output_file";;
mosh) echo "$prefix MOSH_LOADPATH=$prepend_dirs:$append_dirs mosh" >> "$output_file";;
racket) echo "$prefix racket -I r7rs $prepend_dirs $append_dirs --script" >> "$output_file";;
sagittarius) echo "$prefix sash -r7 $prepend_dirs $append_dirs" >> "$output_file";;