quine.c: Fix double-close bug.

[quine] / quine.c

diff --git a/quine.c b/quine.c
index 95f8e36..c733142 100644 (file)
--- a/quine.c
+++ b/quine.c
@@ -1,7 +1,5 @@
 /* -*-c-*-
  *
- * $Id: quine.c,v 1.2 1999/05/19 21:11:15 mdw Exp $
- *
  * Output a program's source code as a quine file
  *
  * (c) 1999 Mark Wooding
@@ -26,17 +24,6 @@
  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: quine.c,v $
- * Revision 1.2  1999/05/19 21:11:15  mdw
- * Track gratuitous change to mdwopt interface.
- *
- * Revision 1.1.1.1  1999/04/28 19:58:07  mdw
- * Initial revision
- *
- */
-
 /*----- Header files ------------------------------------------------------*/
 
 /* --- ANSI headers --- */
@@ -276,7 +263,6 @@ static void quine__doFile(FILE *fp, FILE *ifp)
     }
     fputs("\",\n", fp);
   }
-  fclose(ifp);
 
   fputs("0\n};\n\n", fp);
 }