close swap file before unlink

ChangeLog

+Tue Apr 27 20:58:14 1999  ape@lrdpf.spacetec.no  (Asbjorn Pettersen)
+
+	* app/tile_swap.c (tile_swap_exit1): close swap file before unlink.
+
 Mon Apr 26 21:34:08 PDT 1999 Manish Singh <yosh@gimp.org>
 
 	* app/gimage_cmds.c

app/base/tile-swap.c

@@ -155,6 +155,14 @@ tile_swap_exit1 (gpointer key,
 	  tile_swap_print_gaps (def_swap_file);
 	}
 
+#ifdef __EMX__
+      /* should close before unlink */
+      if (swap_file->fd > 0)
+	{
+	  close (swap_file->fd);
+	  swap_file->fd = -1;
+	}
+#endif
       unlink (swap_file->filename);
     }
 }

app/tile_swap.c

@@ -155,6 +155,14 @@ tile_swap_exit1 (gpointer key,
 	  tile_swap_print_gaps (def_swap_file);
 	}
 
+#ifdef __EMX__
+      /* should close before unlink */
+      if (swap_file->fd > 0)
+	{
+	  close (swap_file->fd);
+	  swap_file->fd = -1;
+	}
+#endif
       unlink (swap_file->filename);
     }
 }