From 54c5b431827dcd7b359535dd4b30e9750d170f8f Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Wed, 24 Dec 2025 13:28:51 +0200
Subject: [PATCH] Working on windows version

---
 compile-scheme.scm       | 6 ++++--
 libs/implementations.sld | 4 +---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/compile-scheme.scm b/compile-scheme.scm
index c45bdea..0088894 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\"")
@@ -259,7 +259,9 @@
           ((symbol=? compilation-target 'windows)
            (for-each
               display
-              `(,scheme-command ,scheme-program))
+              `(,scheme-command
+                 #\newline
+                 ,scheme-program))
            #;(for-each
              display
              `(";dir; start /WAIT " ,scheme-command " && exit"
diff --git a/libs/implementations.sld b/libs/implementations.sld
index 92cfab0..6548589 100644
--- a/libs/implementations.sld
+++ b/libs/implementations.sld
@@ -273,9 +273,7 @@
                             compilation-target)
                     (apply string-append
                            `(,exec-cmd
-                              ,(if (symbol=? compilation-target 'windows)
-                                 " gosh.exe "
-                                 " gosh ")
+                              " gosh "
                               ,(util-getenv "COMPILE_R7RS_GAUCHE")
                               " -r7 "
                               ,@(map (lambda (item)