From 0970c4f79d8990a3665fd1c018121d9a37ad2bdb Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Wed, 24 Dec 2025 13:34:11 +0200
Subject: [PATCH] Working on windows version

---
 compile-scheme.scm | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/compile-scheme.scm b/compile-scheme.scm
index 0088894..279b2e3 100644
--- a/compile-scheme.scm
+++ b/compile-scheme.scm
@@ -194,7 +194,7 @@
   (apply (cdr (assoc 'command (cdr (assoc scheme data))))
          (list
            (cond
-             ((symbol=? compilation-target 'windows) "@echo off &")
+             ((symbol=? compilation-target 'windows) "; @echo off &")
              (else "exec"))
            (cond
              ((symbol=? compilation-target 'windows) "\"%~f0\"")
@@ -261,14 +261,7 @@
               display
               `(,scheme-command
                  #\newline
-                 ,scheme-program))
-           #;(for-each
-             display
-             `(";dir; start /WAIT " ,scheme-command " && exit"
-               #\newline
-               ,scheme-program
-               ))
-           )
+                 ,scheme-program)))
           (else
             (for-each
               display