summaryrefslogtreecommitdiffstats
path: root/mklibcat.scm
diff options
context:
space:
mode:
Diffstat (limited to 'mklibcat.scm')
-rw-r--r--mklibcat.scm8
1 files changed, 3 insertions, 5 deletions
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")))