1 files changed, 14 insertions, 1 deletions
diff --git a/genman.txr b/genman.txr
index 07db7e04..c1416baa 100644
--- a/genman.txr
+++ b/genman.txr
@@ -295,4 +295,17 @@ function tocjump(hash) {
 </body>
 </html>
 @(end)
-@(do (file-put "share/txr/stdlib/doc-syms.tl" ^(defvarl doc-syms ,symhash)))
+@(bind (name code) @(transpose [nsort (mapcar (tb ((sym code))
+                                                (list (html-decode sym) code))
+                                              (hash-pairs symhash)) : car]))
+@(output "share/txr/stdlib/doc-syms.tl")
+(defparml doc-syms
+  (hash-from-pairs
+@  (repeat)
+      (@(tostring name) @(tostring code))
+@(first)
+    '((@(tostring name) @(tostring code))
+@(last)
+      (@(tostring name) @(tostring code)))))
+@ (end)
+@(end)