[PATCH] mescc: Implement ast->type for comma-expr.

[Michael Forney]

This fixes code like

        int x;
        x = (1, 0);

* module/mescc/compile.scm (ast->type): Implement ast->type for
  comma-expr.
---
 module/mescc/compile.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm
index 3135ec9c..06a2aab2 100644
--- a/module/mescc/compile.scm
+++ b/module/mescc/compile.scm
@@ -251,6 +251,8 @@
 
       ((cond-expr _ ,a ,b) (ast->type a info))
 
+      ((comma-expr _ ,a) (ast->type a info))
+
       (_ (get-type o info))))
 
   (let ((type (type-helper o info)))
-- 
2.44.0