suzanne.soy/extensible-parser-specifications
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Removed dead code

Browse Source
This commit is contained in:
Georges Dupéron 2016-08-31 22:23:42 +02:00
parent e91ff287e0
commit 8ef335bcd4
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
private/no-order.rkt
View File

@ -22,11 +22,9 @@
(define-syntax define-eh-alternative-mixin (define-syntax define-eh-alternative-mixin
(syntax-parser (syntax-parser
[(_ name ((~literal pattern) pat) ...) [(_ name ((~literal pattern) pat) ...)
(let () #'(define-eh-mixin-expander name
(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) (define-for-syntax (inline-or stx)
(syntax-case stx () (syntax-case stx ()