Fix issue with racket v6.5
This commit is contained in:
parent
557c91a678
commit
035f51646b
|
@ -47,8 +47,8 @@
|
||||||
(λ (stx)
|
(λ (stx)
|
||||||
(syntax-case stx ()
|
(syntax-case stx ()
|
||||||
[(self pat ...)
|
[(self pat ...)
|
||||||
((λ (x) #;(pretty-write (syntax->datum x)) x)
|
|
||||||
(with-disappeared-uses
|
(with-disappeared-uses
|
||||||
|
(let ()
|
||||||
(define counter 0)
|
(define counter 0)
|
||||||
(define (increment-counter)
|
(define (increment-counter)
|
||||||
(begin0 counter
|
(begin0 counter
|
||||||
|
|
Loading…
Reference in New Issue
Block a user