diff --git a/racket/src/cs/rumble/struct.ss b/racket/src/cs/rumble/struct.ss index 6069ec0f8c..af51062ffa 100644 --- a/racket/src/cs/rumble/struct.ss +++ b/racket/src/cs/rumble/struct.ss @@ -488,7 +488,7 @@ (record? (impersonator-val v) rtd)))) (string->symbol (string-append (symbol->string name) "?")))]) (register-struct-constructor! ctr) - (register-struct-constructor! pred) + (register-struct-predicate! pred) (values rtd ctr pred