mescc: cleanups.
[mes.git] / guile / mescc.scm
index bcdbd50b27b58fef217f3fce60dcd0eab171570e..5c5fcab83ee07f6c3854021f905822fcb94c9729 100755 (executable)
@@ -88,9 +88,7 @@ Usage: mescc.scm [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)