summaryrefslogtreecommitdiffstats
path: root/mklibcat.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
commitfa3f23105ddcf07c5900de47f19af43d1db1b597 (patch)
treeb2c6cce6b97698098f50cbc78c23fdc0f8d401ab /mklibcat.scm
parentf24b9140d6f74804d5599ec225717d38ca443813 (diff)
downloadslib-fa3f23105ddcf07c5900de47f19af43d1db1b597.tar.gz
slib-fa3f23105ddcf07c5900de47f19af43d1db1b597.zip
Import Upstream version 2c3upstream/2c3
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)