.
original commit: fa0e734e4d8c61677eb5f2e41a2e32738d875b46
This commit is contained in:
parent
9df012df45
commit
6d76e9b1df
|
@ -974,7 +974,7 @@
|
|||
(mk 'define/public (syntax public))
|
||||
(mk 'define/override (syntax override)))))
|
||||
|
||||
(define-syntax (declare-local-member-name stx)
|
||||
(define-syntax (define-local-member-name stx)
|
||||
(syntax-case stx ()
|
||||
[(_ id ...)
|
||||
(let ([ids (syntax->list (syntax (id ...)))])
|
||||
|
@ -1411,13 +1411,14 @@
|
|||
"duplicate name"
|
||||
stx
|
||||
dup)))
|
||||
(with-syntax ([name (datum->syntax-object #f name #f)])
|
||||
(with-syntax ([name (datum->syntax-object #f name #f)]
|
||||
[(var ...) (map localize vars)])
|
||||
(syntax/loc
|
||||
stx
|
||||
(compose-interface
|
||||
'name
|
||||
(list interface-expr ...)
|
||||
'(var ...)))))])))
|
||||
`(var ...)))))])))
|
||||
|
||||
(define-struct interface (name supers public-ids class) insp)
|
||||
|
||||
|
@ -2128,7 +2129,7 @@
|
|||
send send/apply send* class-field-accessor class-field-mutator with-method
|
||||
private* public* override*
|
||||
define/private define/public define/override
|
||||
declare-local-member-name
|
||||
define-local-member-name
|
||||
(rename generic/form generic) (rename make-generic/proc make-generic) send-generic
|
||||
is-a? subclass? implementation? interface-extension?
|
||||
object-interface
|
||||
|
|
Loading…
Reference in New Issue
Block a user