Hi,<br><br>I stumbled upon a compilation in parameter.plt:<br><br>. ../../../../.racket/planet/300/5.1.3/cache/dherman/parameter.plt/1/3/main.ss:26:17: compile: unbound identifier in module in: flat-get<br><br>The broken code is following:<br>
;; I had to copy this from collects/scheme/private/contract-guts.ss<br>;; because it isn&#39;t provided from scheme/contract.<br>(define (flat-proj ctc)<br>  (let ([pred? ((flat-get ctc) ctc)])<br>    (λ (pos neg src-info orig-str)<br>
      (λ (val)<br>        (if (pred? val)<br>            val<br>            (raise-contract-error<br>             val<br>             src-info<br>             pos<br>             orig-str<br>             &quot;expected &lt;~a&gt;, given: ~e&quot;<br>
             ((name-get ctc) ctc)<br>             val))))))<br><br><br>I raised a ticket on this but so far no response. Anybody had the same problem and knows how to fix it?<br><br><br>Thanks,<br>Razvan<br>