From 40c5a4f2420ead90e9387170342ba21dd26e3e12 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 11 Dec 2003 21:32:45 +0000
Subject: [PATCH] ..

original commit: 7e62c2557ca869207b733dce751c17fa69dbe918
---
 collects/framework/framework.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/framework/framework.ss b/collects/framework/framework.ss
index b48e408d..dd8c217d 100644
--- a/collects/framework/framework.ss
+++ b/collects/framework/framework.ss
@@ -101,7 +101,8 @@
     (opt-> (symbol? (symbol? any? . -> . any?))
            (boolean?)
            (-> void?))
-    (p f (weak? #f))
+    ((p f)
+     ((weak? #f)))
     "This function adds a callback which is called with a symbol naming a"
     "preference and it's value, when the preference changes."
     "\\rawscm{preferences:add-callback} returns a thunk, which when"