mescc: bugfix: arg as function call.
[mes.git] / module / language / c99 / compiler.mes
index 1f57ed7fa2d23b97ec787ddefa2abd52c192c2b0..c7c91fc2d904514376b136a670e615c33063f170 100644 (file)
 
       ;; f (car (x))
       ((fctn-call . ,call)
-       (let ((info ((ast->info info) o)))
+       (let* ((empty (clone info #:text '()))
+              (info ((ast->info empty) o)))
          (append (.text info)
                  (list
                   (lambda (f g t d)