Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Simplify outputted unix scripts

This commit is contained in:
retropikzel 2025-11-06 08:57:06 +02:00
parent a94e179efb
commit b6325699a4
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compile-r7rs.scm
View File

@ -169,7 +169,8 @@
(cond (cond
((symbol=? compilation-target 'windows) "%0%") ((symbol=? compilation-target 'windows) "%0%")
((symbol=? compilation-target 'php) "$binname") ((symbol=? compilation-target 'php) "$binname")
(else "$(cd -- \"$(dirname \"$0\")\" >/dev/null 2>&1 && pwd -P)/\"$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) "")

6
r7rs-php-testfiles/main.scm
View File

@ -1,6 +1,10 @@
(import (scheme base) (import (scheme base)
(scheme read) (scheme read)
(scheme write)) (scheme write)
(retropikzel cgi))
(display "Test successfull") (display "Test successfull")
(newline) (newline)
(display (cgi))
(newline)