make recover program a module

svn: r16349
2009-10-17 14:34:15 +00:00 · 2009-10-17 14:34:15 +00:00 · aac4e61bb7
commit aac4e61bb7
parent c483470deb
1 changed files with 3 additions and 1 deletions
--- a/collects/sirmail/recover.ss
+++ b/collects/sirmail/recover.ss
@ -1,3 +1,4 @@
+#lang scheme

 (require mzlib/list net/head)

@ -24,4 +25,5 @@
 		   #f)
 		  rest))))))

-(with-output-to-file "mailbox" (lambda () (write mailbox) (newline)) 'truncate)
+(with-output-to-file "mailbox" (lambda () (write mailbox) (newline)) 
+                     #:exists 'truncate)