suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix structure-preicate-procedure? for some cases

Browse Source 
Fix `structure-preicate-procedure?` on a predicate returned by a
`make-struct-type` call that isn't effectively inlined by schemify.
This commit is contained in:
Matthew Flatt 2019-05-18 11:14:26 -04:00
parent 2c16beb942
commit 236e2768f8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/rumble/struct.ss
View File

@ -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