avoid path->string on #f

svn: r3062
2006-05-25 17:51:25 +00:00 · 2006-05-25 17:51:25 +00:00 · 6f6516e9db
commit 6f6516e9db
parent b690f6cea1
1 changed files with 1 additions and 1 deletions
--- a/collects/games/gcalc/gcalc.ss
+++ b/collects/games/gcalc/gcalc.ss
@ -561,7 +561,7 @@
  (maybe-save)
  (let ([f (if (not (null? file))
             (car file)
-             (path->string (get-file "Open" gcalc-frame)))])
+             (cond [(get-file "Open" gcalc-frame) => path->string] [else #f]))])
    (when f
      (if (file-exists? f)
        (with-input-from-file f