From 866ac2bb9c26215a974f85c1fe3c6267750290b2 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 16 Sep 2013 12:16:32 -0700 Subject: [PATCH] standard-system-loader: typo --- src/runtime/option.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/option.scm b/src/runtime/option.scm index e703034a5..c19922351 100644 --- a/src/runtime/option.scm +++ b/src/runtime/option.scm @@ -133,7 +133,7 @@ USA. (else value))) (define (standard-system-loader name) - (let ((here (merge-pathnames (directory-pathname name) + (let ((here (merge-pathnames (pathname-as-directory name) (directory-pathname (current-load-pathname))))) (lambda () (with-working-directory-pathname here (lambda () (load "make")))))) \ No newline at end of file -- 2.25.1