mescc: bugfix: arg as function call.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 21 Jan 2017 12:17:24 +0000 (13:17 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 21 Jan 2017 12:17:24 +0000 (13:17 +0100)
* module/language/c99/compiler.mes (expr->arg):

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)