andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "squash! squash! mescc: Fix switch statements' fallthrough --support mes" 

This reverts commit 3266f6a834.
This commit is contained in:
Janneke Nieuwenhuizen 2023-09-17 07:41:01 +02:00
parent 3266f6a834
commit c65ce2798b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
module/mescc/compile.scm
View File

@ -1796,19 +1796,19 @@
(let ((c (pmatch o
((case ,test (case . ,body))
(append `((case ,test (expr-stmt)))
(flatten-case `(case ,@body) cases)))
(flatten-case `(case ,@body))))
((case ,test ,case-body (case . ,body))
(append `((case ,test ,case-body))
(flatten-case `(case ,@body) cases)))
(flatten-case `(case ,@body))))
((default (case . ,body))
(append `((default (expr-stmt)))
(flatten-case `(case ,@body) cases)))
(flatten-case `(case ,@body))))
((default ,default-body (case . ,body))
(append `((default ,default-body))
(flatten-case `(case ,@body) cases)))
(flatten-case `(case ,@body))))
((case ,test (default . ,body))
(append `((case ,test (expr-stmt)))
(flatten-case `(default ,@body) cases)))
(flatten-case `(default ,@body))))
((default ,rest)
(list o))
((case ,test)