Revert "squash! squash! mescc: Fix switch statements' fallthrough --support mes"
This reverts commit 3266f6a834
.
This commit is contained in:
parent
3266f6a834
commit
c65ce2798b
|
@ -1796,19 +1796,19 @@
|
||||||
(let ((c (pmatch o
|
(let ((c (pmatch o
|
||||||
((case ,test (case . ,body))
|
((case ,test (case . ,body))
|
||||||
(append `((case ,test (expr-stmt)))
|
(append `((case ,test (expr-stmt)))
|
||||||
(flatten-case `(case ,@body) cases)))
|
(flatten-case `(case ,@body))))
|
||||||
((case ,test ,case-body (case . ,body))
|
((case ,test ,case-body (case . ,body))
|
||||||
(append `((case ,test ,case-body))
|
(append `((case ,test ,case-body))
|
||||||
(flatten-case `(case ,@body) cases)))
|
(flatten-case `(case ,@body))))
|
||||||
((default (case . ,body))
|
((default (case . ,body))
|
||||||
(append `((default (expr-stmt)))
|
(append `((default (expr-stmt)))
|
||||||
(flatten-case `(case ,@body) cases)))
|
(flatten-case `(case ,@body))))
|
||||||
((default ,default-body (case . ,body))
|
((default ,default-body (case . ,body))
|
||||||
(append `((default ,default-body))
|
(append `((default ,default-body))
|
||||||
(flatten-case `(case ,@body) cases)))
|
(flatten-case `(case ,@body))))
|
||||||
((case ,test (default . ,body))
|
((case ,test (default . ,body))
|
||||||
(append `((case ,test (expr-stmt)))
|
(append `((case ,test (expr-stmt)))
|
||||||
(flatten-case `(default ,@body) cases)))
|
(flatten-case `(default ,@body))))
|
||||||
((default ,rest)
|
((default ,rest)
|
||||||
(list o))
|
(list o))
|
||||||
((case ,test)
|
((case ,test)
|
||||||
|
|
Loading…
Reference in New Issue