From cd880532e24370166ed565cf88291ca1aceb333d Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Tue, 17 Mar 2026 18:26:55 +0200
Subject: [PATCH] tr7 fixes

---
 compile-r7rs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compile-r7rs b/compile-r7rs
index faf9e09..cebe65f 100644
--- a/compile-r7rs
+++ b/compile-r7rs
@@ -90,7 +90,10 @@ case $rnrs in
             sagittarius) echo "$prefix sash -r7 $prepend_dirs $append_dirs" >> "$output_file";;
             skint) printf "\n#|\nexec skint $prepend_dirs $append_dirs --program \$0 \n|#\n" >> "$output_file";;
             stklos) echo "$prefix stklos $prepend_dirs $append_dirs" >> "$output_file";;
-            tr7) echo "$prefix TR7_LIB_PATH=$prepend_dirs:$append_dirs tr7i -1" >> "$output_file";;
+            tr7) case "$prepend_dirs:$append_dirs" in
+                ":") echo "$prefix tr7i -1" >> "$output_file";;
+                *) echo "$prefix TR7_LIB_PATH=$prepend_dirs:$append_dirs tr7i -1" >> "$output_file";;
+            esac;;
             ypsilon) echo "$prefix ypsilon $prepend_dirs $append_dirs --top-level-program" >> "$output_file";;
             *) echo "Unsupported implementation RNRS combination: $COMPILE_R7RS $rnrs"; exit 1;;
         esac;;