From 1adc99feaff55108af81978ec5674747cacba002 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Fri, 7 Feb 2025 10:02:28 +0200
Subject: [PATCH] Update readme, fixing racket.exe building

---
 compile-r7rs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compile-r7rs b/compile-r7rs
index ba3ab52..3fefcac 100755
--- a/compile-r7rs
+++ b/compile-r7rs
@@ -195,11 +195,10 @@ case "$SCMC" in
         exit
         ;;
     racket.exe)
-        set -x
-        paths="$(winepath --windows $PWD)"
+        paths="$(winepath --windows $PWD);$(winepath --windows $HOME/.wine/drive_c/Program\ Files/Racket/collects)"
         for dir in $libdirs
         do
-            paths="$paths;$(winepath --windows "$PWD"/"${dir#./}" | sed 's/\//\\/')"
+            paths="$paths;$(winepath --windows "$PWD"/"${dir#./}")"
             findtmp="$(mktemp)"
             find "$dir" ! -name "$(printf "*\n*")" -name '*.sld' > "$findtmp"
             while IFS= read -r lib