www

commit 8ef335bcd4db8818a3aaf7790fe82d9386bf3d08
parent e91ff287e0ce42da4e273829d540bb17281db238
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Wed, 31 Aug 2016 22:23:42 +0200

Removed dead code

Diffstat:
M
private/no-order.rkt
 | 
8
+++-----

1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/private/no-order.rkt b/private/no-order.rkt
@@ -22,11 +22,9 @@
 (define-syntax define-eh-alternative-mixin
   (syntax-parser
     [(_ name ((~literal pattern) pat) ...)
-     (let ()
-       (define-temp-ids "~a/clause" (pat ...))
-       #'(define-eh-mixin-expander name
-           (λ (_)
-             (quote-syntax (~or pat ...)))))]))
+     #'(define-eh-mixin-expander name
+         (λ (_)
+           (quote-syntax (~or pat ...))))]))
 
 (define-for-syntax (inline-or stx)
   (syntax-case stx ()