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))))
(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