From 13699a160c3b4b79fec7a7876dec0d1ffaa5cf5b Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 27 Apr 2015 00:12:07 +0900 Subject: [PATCH] don't bother with (make-path "." base) --- lib/chibi/snow/commands.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index bb093c14..d4e0a900 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -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 '()))