diff options
| author | David N. Welton <davidw@efn.org> | 1998-11-09 21:18:01 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:27 -0800 |
| commit | 926b1b647ac830660933a5e63eb52d4a2552e264 (patch) | |
| tree | e25db5f6e1441d67f5d9af063432018ee20a5f51 /mklibcat.scm | |
| parent | b21cac3362022718634f7086964208b2eed8e897 (diff) | |
| parent | fa3f23105ddcf07c5900de47f19af43d1db1b597 (diff) | |
| download | slib-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.scm | 22 |
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) |