suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add missing guard

Browse Source
This commit is contained in:
Robby Findler 2014-06-14 06:02:44 -05:00
parent fd3aaf6f20
commit 151e4cfac4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/contract/private/struct-dc.rkt
View File

@ -896,7 +896,7 @@
[(#:depends-on-state . more-stuff) (loop #'more-stuff lazy? type #t)] [(#:depends-on-state . more-stuff) (loop #'more-stuff lazy? type #t)]
[(#:lazy . more-stuff) (loop #'more-stuff #t type depends-on-state?)] [(#:lazy . more-stuff) (loop #'more-stuff #t type depends-on-state?)]
[_ (raise-syntax-error 'struct/dc "could not parse clause" stx clause)]))) [_ (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 (raise-syntax-error 'struct/dc
"cannot have #:lazy on a flat contract field" "cannot have #:lazy on a flat contract field"
stx stx