[Style] Greg H reported this bug of a define inside of syntax-case, fixed
This commit is contained in:
parent
3b9dee4a77
commit
4c8cba8104
|
@ -72,30 +72,6 @@ racket
|
|||
]
|
||||
]
|
||||
|
||||
@compare[
|
||||
@racketmod[#:file
|
||||
@tt{good}
|
||||
racket
|
||||
|
||||
(define-syntax (bump stx)
|
||||
(syntax-case stx ()
|
||||
[(_ s sn fn i)
|
||||
(define g (ff #'sn))
|
||||
#'( ....)]))
|
||||
]
|
||||
@; -----------------------------------------------------------------------------
|
||||
@racketmod[#:file
|
||||
@tt{bad}
|
||||
racket
|
||||
|
||||
(define-syntax (bump stx)
|
||||
(syntax-case stx ()
|
||||
[(_ s sn fn i)
|
||||
(let ([g (ff #'sn)])
|
||||
#'( ....))]))
|
||||
]
|
||||
]
|
||||
|
||||
@; -----------------------------------------------------------------------------
|
||||
@section{Conditionals}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user