On Dec 24, 2011, at 3:43 AM, Răzvan Rotaru wrote: > Hi, > > I stumbled upon a compilation in parameter.plt: > > . > ../../../../.racket/planet/300/5.1.3/cache/dherman/parameter.plt/1/3/main.ss:26:17: > compile: unbound identifier in module in: flat-get > > The broken code is following: > ;; I had to copy this from collects/scheme/private/contract-guts.ss > ;; because it isn't provided from scheme/contract. > (define (flat-proj ctc) > (let ([pred? ((flat-get ctc) ctc)]) > (λ (pos neg src-info orig-str) > (λ (val) > (if (pred? val) > val > (raise-contract-error > val > src-info > pos > orig-str > "expected <~a>, given: ~e" > ((name-get ctc) ctc) > val)))))) > > > I raised a ticket on this but so far no response. Anybody had the same > problem and knows how to fix it?
I'm going to ask a meta-question: what do you need this for? It looks to me like the utilities provided by this package can mostly be written-around. Are you compiling something bigger that depends on this package? John
smime.p7s
Description: S/MIME cryptographic signature
____________________ Racket Users list: http://lists.racket-lang.org/users
