From 457d3f9a3f9f37348483d27ee624508e7d6d91ee Mon Sep 17 00:00:00 2001 From: Ben Greenman Date: Sat, 31 Mar 2018 14:32:16 -0400 Subject: [PATCH] fix: *defthing 'names' Change `defthing` so it always passes a `(listof (or/c #f symbol?))` as the fourth argument to `*defthing`. --- 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 index 4b3ee4d9..4fc93e10 100644 --- 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)))))]))