mescc: Tinycc support: multiple statements in default case.
[mes.git] / module / language / c99 / compiler.mes
index f271ace6db5cd712ce1915e58c7fd362ca90ac9f..0be21182fdfab73d4b4deb5a3bc7f8f8a0f70fca 100644 (file)
          (loop statement (append cases (list (test->text test))) clause))
         ((default ,statement)
          (loop statement cases clause))
+        ((default . ,statements)
+         (loop `(compd-stmt (block-item-list ,@statements)) cases clause))
         ((compd-stmt (block-item-list))
          (loop '() cases clause))
         ((compd-stmt (block-item-list . ,elements))