Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

record the start dir when loading SRFI 193

Browse source 
Closes #922
This commit is contained in:
Alex Shinn 2024-05-30 23:09:37 +09:00
parent bfb6b4bf82
commit 4b5ab838e2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/srfi/193.sld
View file

@ -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)))