mescc: cleanups.
[mes.git] / scripts / mescc.mes
index 09d9d57eddafc82c202b15aa456070de72edff0e..0a65ae3cd740e71359f64b4d95435fc7ca67a0e2 100755 (executable)
@@ -101,9 +101,7 @@ Usage: mescc.mes [OPTION]... FILE...
 
 (define (main:ast->info file)
   (let ((ast (with-input-from-file file read)))
-    (with-input-from-file file
-      (lambda ()
-        (c99-ast->info ast)))))
+    (c99-ast->info ast)))
 
 (define (source->ast defines includes)
   (lambda (file)