From 4684239efa63dc1b2c1cbe37ef7d3062029f5532 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:40 -0800
Subject: Import Upstream version 3b1

---
 mklibcat.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'mklibcat.scm')

diff --git a/mklibcat.scm b/mklibcat.scm
index fe3368f..ae7e98e 100644
--- a/mklibcat.scm
+++ b/mklibcat.scm
@@ -210,8 +210,8 @@
 	   (manifest		source		"manifest")
 	   (top-refs		source		"top-refs")
 	   (vet			source		"vet")
-	   (srfi-0				srfi)
-	   (srfi		defmacro	"srfi")
+	   (srfi				srfi-0)
+	   (srfi-0		defmacro	"srfi")
 	   (srfi-1		source		"srfi-1")
 	   (and-let*				srfi-2)
 	   (srfi-2		defmacro	"srfi-2")
@@ -242,9 +242,7 @@
 
       (let ((load-if-exists
 	     (lambda (path)
-	       (cond ((not (file-exists? path))
-		      (set! path (string-append path (scheme-file-suffix)))))
-	       (cond ((file-exists? path)
+	       (cond ((file-exists? (string-append path (scheme-file-suffix)))
 		      (slib:load-source path))))))
 	;;(load-if-exists (in-vicinity (implementation-vicinity) "mksitcat"))
 	(load-if-exists (in-vicinity (implementation-vicinity) "mkimpcat")))
-- 
cgit v1.2.3