From aac4e61bb7c96832c9a6172ba3de299c3e36f9d6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 17 Oct 2009 14:34:15 +0000 Subject: [PATCH] make recover program a module svn: r16349 --- collects/sirmail/recover.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/sirmail/recover.ss b/collects/sirmail/recover.ss index 87e0d6fde1..3e4fef4064 100644 --- 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)