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