From 09b82321b59a4d7f395567f98bee455a2da504cd Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 21 Jan 2009 23:32:23 -0600
Subject: [PATCH] remove failed proper-save from vm

---
 vm/image.c      | 13 -------------
 vm/os-unix.h    |  2 --
 vm/os-windows.h |  2 --
 3 files changed, 17 deletions(-)

diff --git a/vm/image.c b/vm/image.c
index f7ecd34aa8..5f4492e537 100755
--- a/vm/image.c
+++ b/vm/image.c
@@ -112,10 +112,7 @@ bool save_image(const F_CHAR *filename)
 	FILE* file;
 	F_HEADER h;
 
-	F_CHAR temporary_filename[] = STRING_LITERAL("##saving-factor-image##");
-
 	file = OPEN_WRITE(filename);
-	//file = OPEN_WRITE(temporary_filename);
 	if(file == NULL)
 	{
 		print_string("Cannot open image file: "); print_native_string(filename); nl();
@@ -167,16 +164,6 @@ bool save_image(const F_CHAR *filename)
 	}
 
 	return true;
-
-	if(MOVE_FILE_FAILS(temporary_filename, filename))
-	{
-		print_string("Failed to rename tempoarary image file: "); print_string(strerror(errno)); nl();
-		//if(DELETE_FILE_FAILS(temporary_filename))
-			//print_string("Failed to clean up temporary image file: "); print_string(strerror(errno)); nl();
-		return false;
-	}
-
-	return true;
 }
 
 void primitive_save_image(void)
diff --git a/vm/os-unix.h b/vm/os-unix.h
index 9f911acded..d2f34b4bc4 100755
--- a/vm/os-unix.h
+++ b/vm/os-unix.h
@@ -22,8 +22,6 @@ typedef char F_SYMBOL;
 #define STRCMP strcmp
 #define STRNCMP strncmp
 #define STRDUP strdup
-#define MOVE_FILE_FAILS(old,new) (rename((old),(new)) < 0)
-#define DELETE_FILE_FAILS(old) (unlink((old)) < 0)
 
 #define FIXNUM_FORMAT "%ld"
 #define CELL_FORMAT "%lu"
diff --git a/vm/os-windows.h b/vm/os-windows.h
index beec7ad37c..a9c3f6d803 100755
--- a/vm/os-windows.h
+++ b/vm/os-windows.h
@@ -19,8 +19,6 @@ typedef wchar_t F_CHAR;
 #define STRCMP wcscmp
 #define STRNCMP wcsncmp
 #define STRDUP _wcsdup
-#define MOVE_FILE_FAILS(old,new) (MoveFile((old),(new)) == 0)
-#define DELETE_FILE_FAILS(old) (DeleteFile((old)) == 0)
 
 #ifdef WIN64
 	#define CELL_FORMAT "%Iu"