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?
Thanks,
Razvan
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/users
