diff options
Diffstat (limited to 'mkimpcat.scm')
| -rw-r--r-- | mkimpcat.scm | 38 |
1 files changed, 22 insertions, 16 deletions
diff --git a/mkimpcat.scm b/mkimpcat.scm index f94f949..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) @@ -82,11 +83,15 @@ (in-implementation-vicinity "ioext" link:able-suffix) (usr:lib "c")) (add-alias 'directory-for-each 'i/o-extensions) + (add-alias 'directory 'i/o-extensions) (add-alias 'line-i/o 'i/o-extensions) (add-alias 'pipe 'i/o-extensions))) (cond ((add-link 'rev2-procedures (in-implementation-vicinity "sc2" link:able-suffix)))) + (cond ((add-link 'byte + (in-implementation-vicinity "byte" + link:able-suffix)))) (cond ((or (add-link 'db (in-wb-vicinity "db.so")) @@ -104,6 +109,8 @@ (usr:lib "c"))) (add-source 'wb-table (in-wb-vicinity "wbtab")) + (add-source 'rwb-isam + (in-wb-vicinity "rwb-isam")) (add-alias 'wb 'db))) (cond ((add-link 'mysql (in-implementation-vicinity "database" @@ -182,27 +189,22 @@ (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* ")") ) - (begin - ;; Messy because this trait has no C-installed feature name - (display* "#.(if (defined? renamed-identifier)") - (display* " '(") - (display " " op) - (add-source 'macro (in-implementation-vicinity "Macro")) - (display* " )") - (display* " '())") - ) + (display* "#+" 'primitive-hygiene) + (display* "(") + (add-source 'macro (in-installation-vicinity "Macro")) + (display* ")") (add-links 'dld (lambda (lib) (string-append "/usr/lib/lib" lib ".a")) @@ -229,4 +231,8 @@ (lambda (lib) #f) (lambda (lib) #f) ".so") + (add-links 'win32-dl + (lambda (lib) #f) + (lambda (lib) #f) + ".dll") ))) |