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

Copy fewer props in class forms that expand to macros.

Browse Source 
Revises cd996c3b6c (see #3240) to only copy the neccessary
properties. Copying all properties interfes with Typed Racket's
class system parsing.
This commit is contained in:
Sam Tobin-Hochstadt 2020-06-22 16:39:05 -04:00
parent d175f4c626
commit aafdafb1cf
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/private/class-internal.rkt
View File

@ -373,6 +373,9 @@
(if (null? l)
null
(let ([e (expand (car l))])
(define (copy-prop stx . ps) (for/fold ([stx stx])
([p ps])
(syntax-property stx p (syntax-property e p))))
(syntax-case e (begin define-syntaxes define-values)
[(begin . _)
(loop (append
@ -388,7 +391,8 @@
(syntax-local-bind-syntaxes (syntax->list #'(id ...)) #'rhs def-ctx)
(with-syntax ([(id ...) (map syntax-local-identifier-as-binding
(syntax->list #'(id ...)))])
(cons (datum->syntax e (list #'define-syntaxes #'(id ...) #'rhs) e e)
(cons (copy-prop (syntax/loc e (define-syntaxes (id ...) rhs))
'disappeared-use 'origin 'disappeared-binding)
(loop (cdr l))))))]
[(define-values (id ...) rhs)
(andmap identifier? (syntax->list #'(id ...)))