Ticket #49 (closed defect)
object-name wrong for (pseudo-parameter/c ... -> ...)
| Reported by: | dherman | Owned by: | dherman |
|---|---|---|---|
| Priority: | minor | Milestone: | |
| Component: | dherman/parameter.plt | Keywords: | |
| Cc: | Version: | ||
| Racket Version: |
Description
(module a scheme
(require (planet dherman/parameter:1:3))
(define p
(let ([f add1])
(make-pseudo-parameter
(lambda () f)
(lambda (g)
(set! f g)))))
(provide/contract [p (pseudo-parameter/c (-> number? number?))]))
> (require 'a)
> (p)
#<procedure:unsaved-editor4117:9:47>
Change History
Note: See
TracTickets for help on using
tickets.
