From 96aede2365fa27a6b85effebcdaea1a2e242a5a5 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 27 Sep 2025 14:49:31 +0300 Subject: [PATCH] Add newline when outputting list of supported Schemes --- compile-r7rs.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compile-r7rs.scm b/compile-r7rs.scm index a4d6516..15f0b1f 100644 --- a/compile-r7rs.scm +++ b/compile-r7rs.scm @@ -11,14 +11,17 @@ (when (member "--list-r6rs-schemes" (command-line)) (for-each (lambda (scheme) (display scheme) (display " ")) r6rs-schemes) + (newline) (exit 0)) (when (member "--list-r7rs-schemes" (command-line)) (for-each (lambda (scheme) (display scheme) (display " ")) r7rs-schemes) + (newline) (exit 0)) (when (member "--list-schemes" (command-line)) (for-each (lambda (scheme) (display scheme) (display " ")) all-schemes) + (newline) (exit 0)) (define scheme (if (get-environment-variable "COMPILE_R7RS")