#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))]))