suzanne.soy/extensible-parser-specifications
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Compatibility with v6.5

Browse Source
This commit is contained in:
Georges Dupéron 2016-09-08 14:40:36 +02:00
parent 23eba12634
commit e628554a48
1 changed files with 56 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
private/no-order.rkt
View File

@ -66,7 +66,7 @@
(define-for-syntax (fix-disappeared-uses) (define-for-syntax (fix-disappeared-uses)
;; Fix for https://github.com/racket/racket/issues/1452 ;; Fix for https://github.com/racket/racket/issues/1452
(let ([dis (current-recorded-disappeared-uses)]) (let ([dis (current-recorded-disappeared-uses)])
#`{~do #,(with-disappeared-uses #`{~do #,(with-disappeared-uses*
(record-disappeared-uses dis) (record-disappeared-uses dis)
#'(void))})) #'(void))}))
@ -78,8 +78,7 @@
(λ (stx) (λ (stx)
(syntax-case stx () (syntax-case stx ()
[(self pat ...) [(self pat ...)
(with-disappeared-uses (with-disappeared-uses*
(let ()
(define counter 0) (define counter 0)
(define (increment-counter) (define (increment-counter)
(begin0 counter (begin0 counter
@ -133,7 +132,7 @@
i))} i))}
~! ~!
(~bind #,@post-group-bindings) (~bind #,@post-group-bindings)
#,@post-acc)))))])))) #,@post-acc))))]))))
(define-syntax ~no-order (define-syntax ~no-order
(pattern-expander (pattern-expander