suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix: *defthing 'names'

Browse Source 
Change `defthing` so it always passes a `(listof (or/c #f symbol?))`
 as the fourth argument to `*defthing`.
This commit is contained in:
Ben Greenman 2018-03-31 14:32:16 -04:00
parent d4d38e1ac4
commit 457d3f9a3f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scribble-lib/scribble/private/manual-proc.rkt
View File

@ -1042,7 +1042,7 @@
(let ([id-val id-expr]) (let ([id-val id-expr])
(*defthing kind.kind (*defthing kind.kind
lt.expr 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)) (list (racketblock0 result))
(lambda () (list desc ...)) (lambda () (list desc ...))
(list (result-value value.value)))))])) (list (result-value value.value)))))]))