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

Fix tests on Racket

This commit is contained in:
retropikzel 2026-03-13 14:27:53 +02:00
parent 3a7e8f61ab
commit 5f574a47df
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Makefile
View File

@ -19,8 +19,10 @@ test:
@mkdir -p .tmp/libs/foo @mkdir -p .tmp/libs/foo
@mkdir -p .tmp/other_libs @mkdir -p .tmp/other_libs
@# R6RS testfiles @# R6RS testfiles
@printf "(import (rnrs) (foo bar))\n(baz)" > .tmp/main.sps @printf "#!r6rs\n(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(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 @# R7RS testfiles
@printf "(import (scheme base) (scheme write) (foo bar))\n(baz)" > .tmp/main.scm @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 @printf "(define-library (foo bar) (import (scheme base) (scheme write)) (export baz) (include \"bar.scm\"))" > .tmp/libs/foo/bar.sld