2 files changed, 18 insertions, 8 deletions
diff --git a/src/test/ao_lisp_test.c b/src/test/ao_lisp_test.c
index 41dae07a..648d1abe 100644
--- a/src/test/ao_lisp_test.c
+++ b/src/test/ao_lisp_test.c
@@ -35,6 +35,24 @@ ao_lisp_os_save(void)
 }
 
 int
+ao_lisp_os_restore_save(struct ao_lisp_os_save *save, int offset)
+{
+	FILE	*restore = fopen(save_file, "r");
+	size_t	ret;
+
+	if (!restore) {
+		perror(save_file);
+		return 0;
+	}
+	fseek(restore, offset, SEEK_SET);
+	ret = fread(save, sizeof (struct ao_lisp_os_save), 1, restore);
+	fclose(restore);
+	if (ret != 1)
+		return 0;
+	return 1;
+}
+
+int
 ao_lisp_os_restore(void)
 {
 	FILE	*restore = fopen(save_file, "r");
diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 01398d91..2b614829 100644
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -6,20 +6,12 @@
   (patom "\033[2J" nil)
   )
 
-(defun test ()
-  (clear)
-  (move-to 30 12)
-  (patom "hello, world")
-  (move-to 0 19)
-  )
-
 (setq stack '("*" "**" "***" "****" "*****" "******" "*******"))
 
 (setq stacks nil)
 
 (defun display-string (x y str)
   (move-to x y)
-  (move-to x y)
   (patom str)
   )