From 5ff9e402e73a643f8b0fbd86dc0f245258d487b6 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Fri, 7 Nov 2025 06:40:15 +0200 Subject: [PATCH] Clean a bit --- compile-r7rs.scm | 2 -- 1 file changed, 2 deletions(-) diff --git a/compile-r7rs.scm b/compile-r7rs.scm index 65bf66c..4bd66e3 100644 --- a/compile-r7rs.scm +++ b/compile-r7rs.scm @@ -165,12 +165,10 @@ ((symbol=? compilation-target 'windows) "") ((symbol=? compilation-target 'php) "") (else "exec")) - ;; How to get the script file (cond ((symbol=? compilation-target 'windows) "%0%") ((symbol=? compilation-target 'php) "$binname") (else "\"$0\"")) - ;(else "$(cd -- \"$(dirname \"$0\")\" >/dev/null 2>&1 && pwd -P)/\"$0\"")) (cond ((symbol=? compilation-target 'windows) "") ((symbol=? compilation-target 'php) "")