From c65ce2798bd160d6afc1dae0eb8db3d623c37ae6 Mon Sep 17 00:00:00 2001 From: Janneke Nieuwenhuizen Date: Sun, 17 Sep 2023 07:41:01 +0200 Subject: [PATCH] Revert "squash! squash! mescc: Fix switch statements' fallthrough --support mes" This reverts commit 3266f6a8340c38db2090d654995e414554fa361c. --- module/mescc/compile.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm index c75c3303..20cc8e28 100644 --- a/module/mescc/compile.scm +++ b/module/mescc/compile.scm @@ -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)