From ca9e8d742f15c120bf1c2d62c4d65379b917e340 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 24 Feb 2012 11:30:29 -0600
Subject: [PATCH] add missing defaults to calls to syntax-local-value

---
 collects/racket/contract/private/provide.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/racket/contract/private/provide.rkt b/collects/racket/contract/private/provide.rkt
index 39e80532b5..a3bf2f59f1 100644
--- a/collects/racket/contract/private/provide.rkt
+++ b/collects/racket/contract/private/provide.rkt
@@ -745,10 +745,10 @@
        (define (add-struct-clause-to-struct-id-mapping a parent flds/stx)
          (define flds (syntax->list flds/stx))
          (when (and (identifier? a)
-                    (struct-info? (syntax-local-value a))
+                    (struct-info? (syntax-local-value a (λ () #f)))
                     (or (not parent)
                         (and (identifier? parent)
-                             (struct-info? (syntax-local-value parent))))
+                             (struct-info? (syntax-local-value parent (λ () #f)))))
                     flds
                     (andmap identifier? flds))
            (free-identifier-mapping-put!