Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Adding test-r7rs

This commit is contained in:
retropikzel 2025-09-20 08:33:08 +03:00
parent 7b159a2ebf
commit 18a5a9688c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test-r7rs.scm
View File

@ -285,7 +285,8 @@
(display "Output: ") (display "Output: ")
(newline) (newline)
(cat docker-build-out) (cat docker-build-out)
(newline)) (newline)
(exit 1))
(let* ((build-exit-code (number->string (system build-cmd))) (let* ((build-exit-code (number->string (system build-cmd)))
(run-exit-code (number->string (system run-cmd))) (run-exit-code (number->string (system run-cmd)))
(testname (if (and (string? run-exit-code) (testname (if (and (string? run-exit-code)