www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

mixin.rkt (381B)

      1 #lang racket
      2 
      3 (require "no-order.rkt"
      4          (for-syntax syntax/parse
      5                      phc-toolkit/untyped
      6                      racket/syntax))
      7 
      8 (provide ~mixin)
      9 
     10 (define-eh-mixin-expander ~mixin
     11   (syntax-parser
     12     [(_ (~var mixin (static eh-mixin-expander? "an eh-mixin expander")))
     13      (with-disappeared-uses*
     14       (record-disappeared-uses* #'mixin)
     15       #'(mixin))]))