shithub: sl

Info  •  Files  •  Log  •  Branches

doc-for: fix it evaluating the wrong thing

--- a/docs_extra.lsp

+++ b/docs_extra.lsp

@@ -7,7 +7,7 @@

           (error "docs: " sym ": no funvars specified"))

         (unless (function? val)

           (error "docs: " sym ": funvars set but isn't a function")))

-    (symbol-set-doc sym doc funvars)))

+    `(symbol-set-doc ',sym ',doc ',funvars)))

 (doc-for (vm-stats)

   "Print various VM-related information, such as the number of GC calls