Replaced mistaken #f with srcloc.

svn: r17730
2010-01-19 03:39:28 +00:00 · 2010-01-19 03:39:28 +00:00 · 2f2068356c
commit 2f2068356c
parent 9fbf023d90
1 changed files with 3 additions and 2 deletions
--- 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))