summaryrefslogtreecommitdiffstats
path: root/mklibcat.scm
diff options
context:
space:
mode:
authorDavid N. Welton <davidw@efn.org>1998-11-09 21:18:01 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
commit926b1b647ac830660933a5e63eb52d4a2552e264 (patch)
treee25db5f6e1441d67f5d9af063432018ee20a5f51 /mklibcat.scm
parentb21cac3362022718634f7086964208b2eed8e897 (diff)
parentfa3f23105ddcf07c5900de47f19af43d1db1b597 (diff)
downloadslib-926b1b647ac830660933a5e63eb52d4a2552e264.tar.gz
slib-926b1b647ac830660933a5e63eb52d4a2552e264.zip
Import Debian changes 2c3-3debian/2c3-3
slib (2c3-3) frozen unstable; urgency=low * Fixes #16235. * Fixes #19943. * Fixes #20265. * Fixes #24917. * Fixes #27389. slib (2c3-2) frozen unstable; urgency=low * Re-uploaded for slink freeze. slib (2c3-1) unstable; urgency=low * New upstream release.
Diffstat (limited to 'mklibcat.scm')
-rw-r--r--mklibcat.scm22
1 files changed, 15 insertions, 7 deletions
diff --git a/mklibcat.scm b/mklibcat.scm
index 050a3ba..dbc26d9 100644
--- a/mklibcat.scm
+++ b/mklibcat.scm
@@ -90,7 +90,7 @@
(qp . "qp")
(break defmacro . "break")
(trace defmacro . "trace")
- ;;(eval . "eval")
+ (eval . "eval")
(record . "record")
(promise . "promise")
(synchk . "synchk")
@@ -99,7 +99,7 @@
(syntax-case . "scainit")
(syntactic-closures . "scmacro")
(macros-that-work . "macwork")
- (macro . macros-that-work)
+ (macro . macro-by-example)
(yasos macro . "yasos")
(oop . yasos)
(collect macro . "collect")
@@ -119,10 +119,14 @@
(relational-database . "rdms")
(database-utilities . "dbutil")
(database-browse . "dbrowse")
+ (html-form . "htmlform")
(alist-table . "alistab")
(parameters . "paramlst")
+ (getopt-parameters . "getparam")
(read-command . "comparse")
(batch . "batch")
+ (glob . "glob")
+ (filename . glob)
(make-crc . "makcrc")
(wt-tree . "wttree")
(string-search . "strsrch")
@@ -134,6 +138,7 @@
(determinant . "determ")
(byte . "byte")
(tzfile . "tzfile")
+ (schmooz . "schmooz")
(new-catalog . "mklibcat")
))))
(display " " op)
@@ -145,11 +150,14 @@
(newline op)
(display ")" op) (newline op)
- (let ((mkimpcat (in-vicinity (implementation-vicinity) "mkimpcat")))
- (cond ((not (file-exists? mkimpcat))
- (set! mkimpcat (string-append mkimpcat (scheme-file-suffix)))))
- (cond ((file-exists? mkimpcat)
- (slib:load-source mkimpcat))))
+ (let ((load-if-exists
+ (lambda (path)
+ (cond ((not (file-exists? path))
+ (set! path (string-append path (scheme-file-suffix)))))
+ (cond ((file-exists? path)
+ (slib:load-source path))))))
+ ;;(load-if-exists (in-vicinity (implementation-vicinity) "mksitcat"))
+ (load-if-exists (in-vicinity (implementation-vicinity) "mkimpcat")))
(let ((catcat
(lambda (vicinity name specificity)