diff options
Diffstat (limited to 'mkimpcat.scm')
| -rw-r--r-- | mkimpcat.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/mkimpcat.scm b/mkimpcat.scm index 8f5929a..df6c813 100644 --- a/mkimpcat.scm +++ b/mkimpcat.scm @@ -44,6 +44,7 @@ (let ((catname "implcat") (iv (implementation-vicinity))) (define (in-implementation-vicinity . paths) (apply in-vicinity iv paths)) + (define (in-installation-vicinity . paths) (apply in-vicinity "/usr/lib/scm/" paths)) (call-with-output-file (in-implementation-vicinity catname) (lambda (op) (define (display* . args) @@ -188,21 +189,21 @@ (add-alias '3rs 'r3rs) (add-alias '4rs 'r4rs) (add-alias '5rs 'r5rs) - (add-alias 'hobbit (in-implementation-vicinity "hobbit")) - (add-alias 'scmhob (in-implementation-vicinity "scmhob")) - (add-alias 'regex-case (in-implementation-vicinity "rgxcase")) - (add-alias 'url-filename (in-implementation-vicinity "urlfile")) - (add-source 'disarm (in-implementation-vicinity + (add-alias 'hobbit (in-installation-vicinity "hobbit")) + (add-alias 'scmhob (in-installation-vicinity "scmhob")) + (add-alias 'regex-case (in-installation-vicinity "rgxcase")) + (add-alias 'url-filename (in-installation-vicinity "urlfile")) + (add-source 'disarm (in-installation-vicinity (string-append "disarm" (scheme-file-suffix)))) - (add-source 'build (in-implementation-vicinity "build")) - (add-source 'compile (in-implementation-vicinity + (add-source 'build (in-installation-vicinity "build")) + (add-source 'compile (in-installation-vicinity (string-append "compile" (scheme-file-suffix)))) (display* ")") ) (display* "#+" 'primitive-hygiene) (display* "(") - (add-source 'macro (in-implementation-vicinity "Macro")) + (add-source 'macro (in-installation-vicinity "Macro")) (display* ")") (add-links 'dld |