From e2ea830361138212974c3637e9e928bc1f753bde Mon Sep 17 00:00:00 2001 From: Ben Greenman Date: Sun, 4 Feb 2018 16:46:50 -0500 Subject: [PATCH] defthing: use #:id expression instead of 'id' Change implementation of `defthing` so that if the user gives an `id-expr` via the `#:id` keyword, then `defthing` never uses the default `id`. --- scribble-lib/scribble/private/manual-proc.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/scribble-lib/scribble/private/manual-proc.rkt b/scribble-lib/scribble/private/manual-proc.rkt index a92b3691..4b3ee4d9 100644 --- a/scribble-lib/scribble/private/manual-proc.rkt +++ b/scribble-lib/scribble/private/manual-proc.rkt @@ -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