From 151e4cfac457e40b3471ad90d3787ef44159c3d7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 14 Jun 2014 06:02:44 -0500 Subject: [PATCH] add missing guard --- racket/collects/racket/contract/private/struct-dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/contract/private/struct-dc.rkt b/racket/collects/racket/contract/private/struct-dc.rkt index 5648452182..f5fa045374 100644 --- a/racket/collects/racket/contract/private/struct-dc.rkt +++ b/racket/collects/racket/contract/private/struct-dc.rkt @@ -896,7 +896,7 @@ [(#:depends-on-state . more-stuff) (loop #'more-stuff lazy? type #t)] [(#:lazy . more-stuff) (loop #'more-stuff #t type depends-on-state?)] [_ (raise-syntax-error 'struct/dc "could not parse clause" stx clause)]))) - (when (and lazy? (equal? '#:flat (syntax-e type))) + (when (and lazy? type (equal? '#:flat (syntax-e type))) (raise-syntax-error 'struct/dc "cannot have #:lazy on a flat contract field" stx