<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">
This code will not compile<div><br></div><div><div>#lang scheme</div><div><br></div><div>(require scheme/date)</div><div><br></div><div>(provide log-to-console)</div><div><br></div><div>(provide/contract</div><div> [log-to-console (-> logger?</div><div> (one-of/c 'debug 'info 'warning 'error 'fatal) </div><div> procedure?)])</div><div>(define (log-to-console logger level)</div><div><br></div><div>...)</div><div><br></div><div><br></div>The error is </div><div><br></div><div>module: identifier already provided (as a different binding) in: log-to-console</div><div><br></div><div>On the other hand, if I comment out the contract, it works as expected. Am I using the contract facility correctly?<br><div> <span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div><br class="Apple-interchange-newline"><br class="khtml-block-placeholder"></div><div>"In the human mind, one-sidedness has </div><div>always been the rule and many-sidedness the</div><div> exception. Hence, even in revolutions of </div><div>thought, one part of the truth usually sets while</div><div> another rises."</div><div>--John Stuart Mill</div><div><br></div><div><div><a href="http://www.gwoodhouse.com">http://www.gwoodhouse.com</a></div><div><a href="http://GregWoodhouse.ImageKind.com">http://GregWoodhouse.ImageKind.com</a></div><div><br></div></div><div><br class="khtml-block-placeholder"></div><br class="Apple-interchange-newline"></span><br class="Apple-interchange-newline"></span> </div><br></div></body></html>