pseudo-parameter/c is borked

[dherman]

Pseudo-parameters fail to fulfill pseudo-parameter/c. Example:

(module a scheme
  (require (planet dherman/parameter:1)
           scheme/contract)
  (define foo
    (let ([x 0])
      (make-pseudo-parameter
       (lambda () x)
       (lambda (v)
         (set! x v)
         v))))
  (provide/contract [foo (pseudo-parameter/c integer?)]))

[dherman]

Fixed in version 1:2. You can't just provide/contract a struct-as-procedure by combining structure and procedure contracts, because it'll get wrapped as a regular procedure. So instead I used the low-level contract constructors to take a given pseudo-parameter and wrap it as a new pseudo-parameter with its underlying functions wrapped in projections.