11 lines
233 B
Racket
11 lines
233 B
Racket
#lang racket
|
|
|
|
(require "no-order.rkt"
|
|
(for-syntax syntax/parse))
|
|
|
|
(provide ~mixin)
|
|
|
|
(define-eh-mixin-expander ~mixin
|
|
(syntax-parser
|
|
[(_ (~var mixin (static eh-mixin-expander? "an eh-mixin expander")))
|
|
#'(mixin)])) |