bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 457d3f9a3f9f37348483d27ee624508e7d6d91ee
parent d4d38e1ac4f9f2fc98ce7f8d658e5c31aa349fed
Author: Ben Greenman <benjaminlgreenman@gmail.com>
Date:   Sat, 31 Mar 2018 14:32:16 -0400

fix: *defthing 'names'

Change `defthing` so it always passes a `(listof (or/c #f symbol?))`
 as the fourth argument to `*defthing`.

Diffstat:
M
scribble-lib/scribble/private/manual-proc.rkt
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/scribble-lib/scribble/private/manual-proc.rkt b/scribble-lib/scribble/private/manual-proc.rkt
@@ -1042,7 +1042,7 @@
         (let ([id-val id-expr])
           (*defthing kind.kind
                      lt.expr
-                     (list (or id-val (quote-syntax/loc id))) (list (or id-val 'id)) #f
+                     (list (or id-val (quote-syntax/loc id))) (list (if (identifier? id-val) (syntax-e id-val) 'id)) #f
                      (list (racketblock0 result))
                      (lambda () (list desc ...))
                      (list (result-value value.value)))))]))