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.

2 files changed, 16 insertions, 30 deletions

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) {
 </body>
 </html>
 @(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
diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl
index 9f999aab..754a0ae6 100644
--- a/stdlib/doc-syms.tl
+++ b/stdlib/doc-syms.tl
@@ -4,13 +4,6 @@
       ("%e%" "N-03F0FA9E")
       ("%pi%" "N-03F0FA9E")
       ("*" "N-022396F7")
-      ("*-1" "N-0187FDD2")
-      ("*-2" "N-0187FDD2")
-      ("*-20" "N-0187FDD2")
-      ("*0" "N-01F7C7DC")
-      ("*1" "N-01F7C7DC")
-      ("*2" "N-01F7C7DC")
-      ("*99" "N-01F7C7DC")
       ("*args*" "N-03DEE18A")
       ("*args-eff*" "N-03DEE18A")
       ("*args-full*" "N-03DEE18A")
@@ -27,7 +20,6 @@
       ("*load-hooks*" "N-02D09712")
       ("*load-path*" "N-01D1DB58")
       ("*match-macro*" "N-012A473F")
-      ("*n" "N-02E7AE5A")
       ("*opt-level*" "N-03FDEBBC")
       ("*package*" "N-000CBBA0")
       ("*package-alist*" "N-00E20381")
@@ -42,7 +34,6 @@
       ("*print-flo-digits*" "N-00F41F6C")
       ("*print-flo-format*" "N-02B252AA")
       ("*print-flo-precision*" "N-02E97D03")
-      ("*r" "N-03A7AE5A")
       ("*random-state*" "N-033875AD")
       ("*random-warmup*" "N-010348CD")
       ("*read-bad-json*" "N-01C77B65")
@@ -58,22 +49,17 @@
       ("*trace-output*" "N-0067A6AC")
       ("*tree-fun-whitelist*" "N-025AB9C9")
       ("*unhandled-hook*" "N-02B4A4FB")
-      ("*v" "N-0367AE5A")
       ("+" "D-0044")
       ("-" "D-004A")
       ("--" "N-0234C408")
-      ("--args" "N-03FCDE42")
-      ("--eargs" "N-03FCDE42")
       ("--rng" "N-01A056E4")
       ("--rng+" "N-01A056E4")
       ("--rng-" "N-01A056E4")
       ("->" "N-02B10DF9")
       ("->>" "N-02B10DF9")
-      ("-C" "N-036F1A29")
       ("-rng" "N-01A056E4")
       ("-rng+" "N-01A056E4")
       ("-rng-" "N-01A056E4")
-      (".." "N-0217A971")
       ("/" "D-0049")
       ("//" "N-0054C409")
       ("/=" "N-003BE40C")
@@ -88,7 +74,6 @@
       ("=" "D-0078")
       (">" "D-0060")
       (">=" "D-0053")
-      ("TXR_COMPAT" "N-03F5D03D")
       ("abort" "N-02F934F6")
       ("abs" "D-0017")
       ("abs-path-p" "N-00477B23")
@@ -189,7 +174,6 @@
       ("buf-alloc-size" "N-013A3727")
       ("buf-carray" "N-0022F54E")
       ("buf-d" "D-0014")
-      ("buf-get-" "N-0095470A")
       ("buf-get-char" "N-03E9074A")
       ("buf-get-cptr" "N-00E90766")
       ("buf-get-double" "N-006C6EB9")
@@ -211,7 +195,6 @@
       ("buf-get-ushort" "N-035691E9")
       ("buf-int" "N-0291625A")
       ("buf-list" "N-03E81617")
-      ("buf-put-" "N-035546D9")
       ("buf-put-buf" "N-009FC934")
       ("buf-put-char" "N-00690748")
       ("buf-put-cptr" "N-03690764")