14 lines
338 B
Racket
14 lines
338 B
Racket
#lang racket
|
|
|
|
(require "no-order.rkt"
|
|
(for-syntax syntax/parse
|
|
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))])) |