mescc: Fix add, sub, lshift.
[mes.git] / module / language / c99 / compiler.mes
index 891c8fcb201eb560713dc4e9e9f031ead03f6a4f..cbaaf3a1bb5f16ab131627f71901d13859beacd0 100644 (file)
 
         ((add ,a ,b)
          (let* ((empty (clone info #:text '()))
-                (accu ((expr->base empty) a))
+                (accu ((expr->accu empty) a))
                 (base ((expr->base empty) b)))
            (clone info #:text
                   (append text
 
         ((sub ,a ,b)
          (let* ((empty (clone info #:text '()))
-                (accu ((expr->base empty) a))
+                (accu ((expr->accu empty) a))
                 (base ((expr->base empty) b)))
            (clone info #:text
                   (append text
 
         ((lshift ,a (p-expr (fixed ,value)))
          (let* ((empty (clone info #:text '()))
-                (accu ((expr->base empty) a))
+                (accu ((expr->accu empty) a))
                 (value (cstring->number value)))
            (clone info #:text
                   (append text