extract-function should propose to extract to macro if it detects that identifiers may be set!

For example:
```racket
(let ([x 3])
  (set! x 2))
; --->
(define-syntax-rule (FOO x)
  (set! x 2))

(let ([x 3])
  (FOO x))
```
