Removed dead code
This commit is contained in:
parent
e91ff287e0
commit
8ef335bcd4
|
@ -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 ...)))))]))
|
||||
(quote-syntax (~or pat ...))))]))
|
||||
|
||||
(define-for-syntax (inline-or stx)
|
||||
(syntax-case stx ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user