mescc: Also print `parsing: input' when using -E.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 6 Apr 2018 05:18:19 +0000 (07:18 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 6 Apr 2018 05:18:19 +0000 (07:18 +0200)
* module/language/c99/compiler.mes (c99-input->ast): Print `parsing:
  input'.
  (c99-input->info): Remove that.

module/language/c99/compiler.mes

index 87cb97c68b681beb406520822a6ec3f78786d76b..304586971084f74e651182637f4416bf2a2d3c2c 100644 (file)
   ((ast->info (make <info> #:types i386:type-alist)) ast))
 
 (define* (c99-input->ast #:key (defines '()) (includes '()))
+  (stderr "parsing: input\n")
   ((compose ast-strip-const ast-strip-comment) (c99-input->full-ast #:defines defines #:includes includes)))
 
 (define* (c99-input->info #:key (defines '()) (includes '()))
   (lambda ()
     (let* ((info (make <info> #:types i386:type-alist))
-           (foo (stderr "parsing: input\n"))
            (ast (c99-input->ast #:defines defines #:includes includes))
            (foo (stderr "compiling: input\n"))
            (info ((ast->info info) ast))