Add setter to parameter procedures

We used ot have a setter associated to a parameter procedure.

```
(define foo (make-parameter 'foo)
(set! (foo) 'new-foo)
(foo) => 'new-foo
```

This was lost when we rewrote parameter for srfi-226.
