diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:40 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:40 -0800 |
| commit | 4684239efa63dc1b2c1cbe37ef7d3062029f5532 (patch) | |
| tree | 606a687e9279e9bf6048925878968df9875a4973 /mklibcat.scm | |
| parent | 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (diff) | |
| download | slib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.tar.gz slib-4684239efa63dc1b2c1cbe37ef7d3062029f5532.zip | |
Import Upstream version 3b1upstream/3b1
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"))) |