15 lines
381 B
Racket
15 lines
381 B
Racket
#lang racket
|
|
|
|
(require "no-order.rkt"
|
|
(for-syntax syntax/parse
|
|
phc-toolkit/untyped
|
|
racket/syntax))
|
|
|
|
(provide ~mixin)
|
|
|
|
(define-eh-mixin-expander ~mixin
|
|
(syntax-parser
|
|
[(_ (~var mixin (static eh-mixin-expander? "an eh-mixin expander")))
|
|
(with-disappeared-uses*
|
|
(record-disappeared-uses* #'mixin)
|
|
#'(mixin))])) |