diff options
Diffstat (limited to 'mklibcat.scm')
| -rw-r--r-- | mklibcat.scm | 8 |
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"))) |