cs: fix structure property accessor & predicate names

racket/src/cs/rumble/struct.ss

@@ -80,6 +80,7 @@
                         [(procedure? fail) (|#%app| fail)]
                         [else fail]))])
        (letrec ([acc
+                 (procedure-rename
                   (case-lambda
                    [(v fail)
                     (cond
@@ -97,7 +98,9 @@
                                   (do-fail fail v)
                                   pv))
                             (do-fail fail v)))])]
-                  [(v) (acc v default-fail)])])
+                   [(v) (acc v default-fail)])
+                  accessor-name)])
+         (let ([pred (procedure-rename pred predicate-name)])
            (add-to-table! property-accessors
                           acc
                           (cons pred can-impersonate?))
@@ -106,7 +109,7 @@
                           st)
            (values st
                    pred
-                 acc)))]))
+                   acc))))]))
 
 (define (struct-type-property-accessor-procedure? v)
   (let ([v (strip-impersonator v)])