From 74fde8a361b85fa55d5ac3eb8300df8cfa731b47 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 5 Jun 2002 13:33:33 +0000
Subject: [PATCH] ..

original commit: 8113faee00e23ff29faedd11cb83febe12ae49d2
---
 collects/framework/framework.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/framework/framework.ss b/collects/framework/framework.ss
index 42757a52..c9979db0 100644
--- a/collects/framework/framework.ss
+++ b/collects/framework/framework.ss
@@ -596,7 +596,7 @@
    (handler:insert-format-handler
     (string?
      (union string? (listof string?) (string? . -> . boolean?))
-     (string? . -> . (is-a?/c frame:editor<%>))
+     (string? . -> . (union false? (is-a?/c frame:editor<%>)))
      . -> .
      void?)
     (name pred handler)
@@ -630,7 +630,7 @@
     (opt->
      ((union string? false?))
      ((-> (is-a?/c frame:editor<%>)))
-     (is-a?/c frame:editor<%>))
+     (union false? (is-a?/c frame:editor<%>)))
     ((filename)
      ((make-default (lambda () (make-object frame:text-info-file\% filename)))))
     "This function creates a frame or re-uses an existing frame to edit a file. "