fix some redex bugs caught by drdr tests

collects/redex/private/keyword-macros.rkt

@@ -1,6 +1,7 @@
 #lang racket/base
 
 (require racket/match
+         racket/contract
          (for-template racket/base racket/contract))
 
 (define (parse-kw-args formals actuals source form-name)

collects/redex/private/rg.rkt

@@ -915,7 +915,7 @@
                        (format "counterexample found after ~a~a:\n"
                                (format-attempts attempt)
                                (if source (format " with ~a" source) "")))
-                      (pretty-print term (current-output-port)))
+                      (pretty-write term (current-output-port)))
                     (make-counterexample term)))))))))
 
 (define (check-lhs-pats lang mf/rr prop attempts retries what show term-fix