Attempt to get arrows drawn from a mixin's declaration to its (~no-order (~mixin m)). Not enough, it still doesn't work.

private/mixin.rkt

@@ -1,11 +1,14 @@
 #lang racket
 
 (require "no-order.rkt"
-         (for-syntax syntax/parse))
+         (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")))
-     #'(mixin)]))
+     (with-disappeared-uses
+      (record-disappeared-uses #'mixin)
+      #'(mixin))]))

private/no-order.rkt

@@ -60,7 +60,8 @@
              (parameterize ([eh-post-accumulate add-to-post!]
                             [eh-post-group add-to-post-groups!]
                             [clause-counter increment-counter])
-               (inline-or (expand-all-eh-mixin-expanders #'(~or pat ...)))))
+               ;(inline-or
+               (expand-all-eh-mixin-expanders #'(~or pat ...))))
            (define post-group-bindings
              (for/list ([group (group-by car
                                          post-groups-acc
@@ -75,7 +76,7 @@
                #`[name (f . #,(map (λ (i) #`(attribute #,(third i)))
                                    group))]))
            #`(~delimit-cut
-              (~and (~seq (~or . #,alts) (... ...))
+              (~and (~seq #,alts (... ...)) ;;(~or . #,alts)
                     ~!
                     (~bind #,@post-group-bindings)
                     #,@post-acc))))]))))