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

don't bother with (make-path "." base)

Browse source
This commit is contained in:
Alex Shinn 2015-04-27 00:12:07 +09:00
parent 31997cb514
commit 13699a160c
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/snow/commands.scm
View file

@ -148,7 +148,9 @@
(lib-file (path-relative file dir))
(lib-dir (path-directory lib-file)))
(define (resolve file)
(let ((dest-path (make-path lib-dir file)))
(let ((dest-path (if (equal? lib-dir ".")
file
(make-path lib-dir file))))
(list 'rename (make-path dir dest-path) dest-path)))
(define (ffi-file-includes file)
(let lp ((forms (guard (exn (else '()))