From 2f2068356c4d01a35ab55b6152b5e4d3b2639b4a Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Tue, 19 Jan 2010 03:39:28 +0000
Subject: [PATCH] Replaced mistaken #f with srcloc.

svn: r17730
---
 collects/scheme/contract/private/provide.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/scheme/contract/private/provide.ss b/collects/scheme/contract/private/provide.ss
index f3de8b496c..540310ee08 100644
--- a/collects/scheme/contract/private/provide.ss
+++ b/collects/scheme/contract/private/provide.ss
@@ -9,7 +9,8 @@
          "base.ss"
          scheme/contract/exists
          "guts.ss"
-         unstable/location)
+         unstable/location
+         unstable/srcloc)
 
 (define-syntax (verify-contract stx)
   (syntax-case stx ()
@@ -696,7 +697,7 @@
                                                               'not-enough-info-for-blame
                                                               'not-enough-info-for-blame
                                                               '#f
-                                                              '#f))
+                                                              (build-source-location #f)))
                                                   ctcs
                                                   vals)))))])
     struct:struct-name))