Fix for issue #51.

Author: compuphase

compiler/sc1.c

@@ -844,7 +844,7 @@ int pc_compile(int argc, char *argv[])
     assert(inpfname!=NULL && inpfname!=(char*)-1);
     free(inpfname);
     assert(inpf!=NULL && inpf!=(FILE*)-1);
-    fclose(inpf);
+    pc_closesrc(inpf);
   } /* if */
   lexinit(TRUE);                          /* reset and release buffers */
   phopt_cleanup();