Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Clean a bit

This commit is contained in:
retropikzel 2025-11-07 06:40:15 +02:00
parent 67d3ff6157
commit 5ff9e402e7
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compile-r7rs.scm
View File

@ -165,12 +165,10 @@
((symbol=? compilation-target 'windows) "") ((symbol=? compilation-target 'windows) "")
((symbol=? compilation-target 'php) "") ((symbol=? compilation-target 'php) "")
(else "exec")) (else "exec"))
;; How to get the script file
(cond (cond
((symbol=? compilation-target 'windows) "%0%") ((symbol=? compilation-target 'windows) "%0%")
((symbol=? compilation-target 'php) "$binname") ((symbol=? compilation-target 'php) "$binname")
(else "\"$0\"")) (else "\"$0\""))
;(else "$(cd -- \"$(dirname \"$0\")\" >/dev/null 2>&1 && pwd -P)/\"$0\""))
(cond (cond
((symbol=? compilation-target 'windows) "") ((symbol=? compilation-target 'windows) "")
((symbol=? compilation-target 'php) "") ((symbol=? compilation-target 'php) "")