fix pack test suite

svn: r9683
2008-05-06 12:26:28 +00:00 · 2008-05-06 12:26:28 +00:00 · 87e361c24a
commit 87e361c24a
parent 4af4b04a4a
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/mzscheme/pack.ss
+++ b/collects/tests/mzscheme/pack.ss
@ -60,7 +60,7 @@

    (with-output-to-file "unpacked/packed/banana"
      (lambda () (printf "COCONUT\n"))
-      'truncate))
+      #:exists 'truncate))

  (parameterize ([current-directory dest])
    (unpack x-plt-str))