Retropikzel
/
compile-scheme
1
0
Fork 0
Code Issues

Working on windows version

This commit is contained in:
retropikzel 2025-12-24 13:34:11 +02:00
parent 54c5b43182
commit 0970c4f79d
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
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\"")
@ -261,14 +261,7 @@
display display
`(,scheme-command `(,scheme-command
#\newline #\newline
,scheme-program)) ,scheme-program)))
#;(for-each
display
`(";dir; start /WAIT " ,scheme-command " && exit"
#\newline
,scheme-program
))
)
(else (else
(for-each (for-each
display display