record the start dir when loading SRFI 193

Closes #922
ashinn · May 30, 2024 · 4b5ab83 · 4b5ab83
1 parent bfb6b4b
commit 4b5ab83
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/srfi/193.sld b/lib/srfi/193.sld
@@ -5,6 +5,7 @@
           (only (chibi) command-line)
           (only (meta) raw-script-file))
   (begin
+    (define start-directory (current-directory))
 
     (define (command-name)
       (let ((filename (car (command-line))))
@@ -17,7 +18,7 @@
     (define (script-file)
       (and raw-script-file
            (path-normalize
-            (path-resolve raw-script-file (current-directory)))))
+            (path-resolve raw-script-file start-directory))))
 
     (define (script-directory)
       (let ((filename (script-file)))