quine.c: Fix double-close bug.

[quine] / quine.c

diff --git a/quine.c b/quine.c
index 03bf45c..c733142 100644 (file)
--- a/quine.c
+++ b/quine.c
@@ -1,7 +1,5 @@
 /* -*-c-*-
  *
- * $Id$
- *
  * Output a program's source code as a quine file
  *
  * (c) 1999 Mark Wooding
@@ -265,7 +263,6 @@ static void quine__doFile(FILE *fp, FILE *ifp)
     }
     fputs("\",\n", fp);
   }
-  fclose(ifp);
 
   fputs("0\n};\n\n", fp);
 }