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

defthing: use #:id expression instead of 'id'

Browse Source 
Change implementation of `defthing` so that if the user gives an
`id-expr` via the `#:id` keyword, then `defthing` never uses the default
`id`.
This commit is contained in:
Ben Greenman 2018-02-04 16:46:50 -05:00
parent 6e00000bb5
commit e2ea830361
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1039,12 +1039,13 @@
#'(with-togetherable-racket-variables
()
()
(*defthing kind.kind
lt.expr
(list (or id-expr (quote-syntax/loc id))) (list 'id) #f
(list (racketblock0 result))
(lambda () (list desc ...))
(list (result-value value.value))))]))
(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 (racketblock0 result))
(lambda () (list desc ...))
(list (result-value value.value)))))]))
(define-syntax (defthing* stx)
(syntax-parse stx