summaryrefslogtreecommitdiffstats
path: root/mkimpcat.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
commitc7d035ae1a729232579a0fe41ed5affa131d3623 (patch)
treefb387f7c2a8e01cf603d4c75fbbaa68f711df986 /mkimpcat.scm
parentdeda2c0fd8689349fea2a900199a76ff7ecb319e (diff)
downloadscm-c7d035ae1a729232579a0fe41ed5affa131d3623.tar.gz
scm-c7d035ae1a729232579a0fe41ed5affa131d3623.zip
Import Upstream version 5d9upstream/5d9
Diffstat (limited to 'mkimpcat.scm')
-rw-r--r--mkimpcat.scm23
1 files changed, 14 insertions, 9 deletions
diff --git a/mkimpcat.scm b/mkimpcat.scm
index f94f949..8f5929a 100644
--- a/mkimpcat.scm
+++ b/mkimpcat.scm
@@ -82,11 +82,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 +108,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"
@@ -194,15 +200,10 @@
(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-implementation-vicinity "Macro"))
+ (display* ")")
(add-links 'dld
(lambda (lib) (string-append "/usr/lib/lib" lib ".a"))
@@ -229,4 +230,8 @@
(lambda (lib) #f)
(lambda (lib) #f)
".so")
+ (add-links 'win32-dl
+ (lambda (lib) #f)
+ (lambda (lib) #f)
+ ".dll")
)))