From 371a8ea509bb55f61728c4c0f2f342f2055c0623 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Thu, 30 Aug 2007 16:11:28 +0000 Subject: [PATCH] Corrected typos in contracts in the framework collection. svn: r7228 original commit: 0b725ae0f4c7484a273434c75f956c4745a99aaa --- collects/framework/framework.ss | 2 +- collects/framework/preferences.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/framework.ss b/collects/framework/framework.ss index 37e096d4..d407b1d8 100644 --- a/collects/framework/framework.ss +++ b/collects/framework/framework.ss @@ -344,7 +344,7 @@ (filename) "Generates a name for an backup file from \\var{filename}.") (finder:dialog-parent-parameter - (parameter/c (or/c false/c (is-ac dialog%) (is-a/c frame%))) + (parameter/c (or/c false/c (is-a?/c dialog%) (is-a?/c frame%))) () "This is a parameter (see " "\\Mzhyperref{parameters}{mz:parameters} for information about parameters)" diff --git a/collects/framework/preferences.ss b/collects/framework/preferences.ss index 560d3437..90992022 100644 --- a/collects/framework/preferences.ss +++ b/collects/framework/preferences.ss @@ -348,7 +348,7 @@ the state transitions / contracts are: "Determines if a value is an unknown preference exn.") (preferences:low-level-put-preferences - (parameter/c (-> (listof symbol?) (listof any?) any)) + (parameter/c (-> (listof symbol?) (listof any/c) any)) () "This is a parameter (see " "\\Mzhyperref{parameters}{mz:parameters} for information about parameters)"