cs: fix some predefined struct-operation procedure names

Closes racket#3592
pavpanchekha · Dec 30, 2020 · dbe3616 · dbe3616
1 parent c7ca441
commit dbe3616
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 7 deletions.
diff --git a/pkgs/racket-test-core/tests/racket/name.rktl b/pkgs/racket-test-core/tests/racket/name.rktl
@@ -207,4 +207,11 @@
 (test 'bytes-set! object-name bytes-set!)
 (test 'bytes-length object-name bytes-length)
 
+;; Check some primitive structure functions
+(test 'date object-name date)
+(test 'date* object-name date*)
+(test 'date? object-name date?)
+(test 'date*? object-name date*?)
+(test 'date-second object-name date-second)
+
 (report-errs)
diff --git a/racket/src/cs/rumble/struct.ss b/racket/src/cs/rumble/struct.ss
@@ -1282,16 +1282,20 @@
                  (define name ctr-expr)
                  (define authentic-name? (record-predicate struct:name))
                  (define name? (|#%struct-predicate|
-                                (lambda (v) (or (authentic-name? v)
-                                                (and (impersonator? v)
-                                                     (authentic-name? (impersonator-val v)))))))
+                                (|#%name|
+                                 name?
+                                 (lambda (v) (or (authentic-name? v)
+                                                 (and (impersonator? v)
+                                                      (authentic-name? (impersonator-val v))))))))
                  (define name-field
                    (let ([name-field (record-accessor struct:name field-index)])
                      (|#%struct-field-accessor|
-                      (lambda (v)
-                        (if (authentic-name? v)
-                            (name-field v)
-                            (pariah (impersonate-ref name-field struct:name field-index v 'name 'field))))
+                      (|#%name|
+                       name-field
+                       (lambda (v)
+                         (if (authentic-name? v)
+                             (name-field v)
+                             (pariah (impersonate-ref name-field struct:name field-index v 'name 'field)))))
                       struct:name
                       field-index)))
                  ...