From 4b5ab838e271bc2a862fc29d5788bd9774b9a22c Mon Sep 17 00:00:00 2001 From: Alex Shinn 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)))