Working on windows version

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"

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)