Retropikzel
/
compile-scheme
1
0
Fork 0
Code Issues

Working on windows version

This commit is contained in:
retropikzel 2025-12-24 13:28:51 +02:00
parent 6bd7891db4
commit 54c5b43182
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compile-scheme.scm
View File

@ -194,7 +194,7 @@
(apply (cdr (assoc 'command (cdr (assoc scheme data)))) (apply (cdr (assoc 'command (cdr (assoc scheme data))))
(list (list
(cond (cond
((symbol=? compilation-target 'windows) "; & @echo off &") ((symbol=? compilation-target 'windows) "@echo off &")
(else "exec")) (else "exec"))
(cond (cond
((symbol=? compilation-target 'windows) "\"%~f0\"") ((symbol=? compilation-target 'windows) "\"%~f0\"")
@ -259,7 +259,9 @@
((symbol=? compilation-target 'windows) ((symbol=? compilation-target 'windows)
(for-each (for-each
display display
`(,scheme-command ,scheme-program)) `(,scheme-command
#\newline
,scheme-program))
#;(for-each #;(for-each
display display
`(";dir; start /WAIT " ,scheme-command " && exit" `(";dir; start /WAIT " ,scheme-command " && exit"

4
libs/implementations.sld
View File

@ -273,9 +273,7 @@
compilation-target) compilation-target)
(apply string-append (apply string-append
`(,exec-cmd `(,exec-cmd
,(if (symbol=? compilation-target 'windows) " gosh "
" gosh.exe "
" gosh ")
,(util-getenv "COMPILE_R7RS_GAUCHE") ,(util-getenv "COMPILE_R7RS_GAUCHE")
" -r7 " " -r7 "
,@(map (lambda (item) ,@(map (lambda (item)