From e8c2a914a9d449d96ceb1fa2d1670e04daf9ffaf Mon Sep 17 00:00:00 2001 From: "Paul A. Patience" Date: Sun, 13 Feb 2022 02:17:41 +0000 Subject: doc: remove extraneous symbols from doc-syms. * genman.txr: Remove from the name list those names that are not TXR symbols, so that they don't appear in doc-syms. * stdlib/doc-syms.tl: Updated. --- genman.txr | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) (limited to 'genman.txr') diff --git a/genman.txr b/genman.txr index 879f5413..dcc0afd9 100644 --- a/genman.txr +++ b/genman.txr @@ -295,9 +295,19 @@ function tocjump(hash) { @(end) -@(bind (name code) @(transpose [nsort (mapcar (tb ((sym code)) - (list (html-decode sym) code)) - (hash-pairs symhash)) : car])) +@(bind (name code) @(let ((ignames '("*-1" "*-2" "*-20" + "*0" "*1" "*2" "*99" + "*n" "*r" "*v" + "--args" "--eargs" "-C" + ".." + "TXR_COMPAT" + "buf-get-" "buf-put-"))) + (flow (hash-pairs symhash) + (remove-if (op in ignames) @1 car) + (mapcar (tb ((sym code)) + (list (html-decode sym) code))) + (nsort @1 : car) + transpose))) @(do (let ((syms (append-each* ((entry [remove-if (op equal "pub") (package-alist) car]) @@ -306,17 +316,10 @@ function tocjump(hash) { (let ((fn (casequal pkg-name (("usr" "keyword") (fun tostringp)) (t (opip tostringp (join-with ":" pkg-name)))))) - (mapcar fn (package-symbols pkg))))) - (ignames '("*-1" "*-2" "*-20" - "*0" "*1" "*2" "*99" - "*n" "*r" "*v" - "--args" "--eargs" "-C" - ".." - "TXR_COMPAT" - "buf-get-" "buf-put-"))) + (mapcar fn (package-symbols pkg)))))) (mapdo (do unless (in syms @1) - (format *stderr* "~a: missing from image\n" @1)) - (remove-if (op in ignames) name)))) + (format *stderr* "~a: missing from image\n" @1)) + name))) @(output "stdlib/doc-syms.tl") (defparml doc-syms (hash-from-pairs -- cgit v1.2.3