From 8ef335bcd4db8818a3aaf7790fe82d9386bf3d08 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Wed, 31 Aug 2016 22:23:42 +0200 Subject: [PATCH] Removed dead code --- private/no-order.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/private/no-order.rkt b/private/no-order.rkt index b3a6b17..019f8b0 100644 --- 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 ()