suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove rename-transformer (causes demodularizer problems)

Browse Source
This commit is contained in:
Ryan Culpepper 2018-03-31 18:53:11 +02:00
parent 6f628b2531
commit 262ed468d0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/collects/racket/private/template.rkt
View File

@ -631,10 +631,13 @@
`(apply append (map (lambda ,lvars ,head) . ,lvars)))))
(datum->syntax here-stx code stx)]))
(define-syntax (t-orelse stx)
(define s (syntax->list stx))
(datum->syntax here-stx `(t-orelse* (lambda () ,(cadr s)) (lambda () ,(caddr s)))))
(define-syntax h-orelse (make-rename-transformer (quote-syntax t-orelse)))
(define-syntaxes (t-orelse h-orelse)
(let ()
(define (orelse-transformer stx)
(define s (syntax->list stx))
(datum->syntax here-stx
`(t-orelse* (lambda () ,(cadr s)) (lambda () ,(caddr s)))))
(values orelse-transformer orelse-transformer)))
(#%require (rename '#%kernel t-const #%expression)
(rename '#%kernel t-var #%expression)