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

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

This commit is contained in:
Janneke Nieuwenhuizen 2023-09-16 17:38:48 +02:00
parent ef4f4bb25a
commit 3266f6a834
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))))
(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)