From 4b5ab838e271bc2a862fc29d5788bd9774b9a22c Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Thu, 30 May 2024 23:09:37 +0900
Subject: [PATCH] record the start dir when loading SRFI 193

Closes #922
---
 lib/srfi/193.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/srfi/193.sld b/lib/srfi/193.sld
index 6c2cb6ae..febc123c 100644
--- 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)))