Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 8 Pull Requests Releases Activity

Add newline when outputting list of supported Schemes

This commit is contained in:
retropikzel 2025-09-27 14:49:31 +03:00
parent 30e0813ef1
commit 96aede2365
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compile-r7rs.scm
View File

@ -11,14 +11,17 @@
(when (member "--list-r6rs-schemes" (command-line)) (when (member "--list-r6rs-schemes" (command-line))
(for-each (lambda (scheme) (display scheme) (display " ")) r6rs-schemes) (for-each (lambda (scheme) (display scheme) (display " ")) r6rs-schemes)
(newline)
(exit 0)) (exit 0))
(when (member "--list-r7rs-schemes" (command-line)) (when (member "--list-r7rs-schemes" (command-line))
(for-each (lambda (scheme) (display scheme) (display " ")) r7rs-schemes) (for-each (lambda (scheme) (display scheme) (display " ")) r7rs-schemes)
(newline)
(exit 0)) (exit 0))
(when (member "--list-schemes" (command-line)) (when (member "--list-schemes" (command-line))
(for-each (lambda (scheme) (display scheme) (display " ")) all-schemes) (for-each (lambda (scheme) (display scheme) (display " ")) all-schemes)
(newline)
(exit 0)) (exit 0))
(define scheme (if (get-environment-variable "COMPILE_R7RS") (define scheme (if (get-environment-variable "COMPILE_R7RS")