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

cs: fix transparent internal structure types

Browse Source 
Commit d96273bc0a broke internal "system" structures in the expander
that need to be transparent.
This commit is contained in:
Matthew Flatt 2021-01-04 06:28:32 -07:00
parent 27a13cd060
commit 4c6bb055b0
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/bc/src/struct.c
View File

@ -5167,7 +5167,7 @@ Scheme_Object *scheme_make_struct_type_from_string(const char *name,
guard); guard);
if (scheme_starting_up) if (scheme_starting_up)
/* Force allocation for a struc<ture type that may be in the master GC: */ /* Force allocation for a structure type that may be in the master GC: */
scheme_force_struct_type_info((Scheme_Struct_Type *)r); scheme_force_struct_type_info((Scheme_Struct_Type *)r);
return r; return r;

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

@ -605,7 +605,8 @@
;; Finish checking and install new property values: ;; Finish checking and install new property values:
(install-props! rtd parent-rtd* all-immutables) (install-props! rtd parent-rtd* all-immutables)
;; Record inspector ;; Record inspector
(unless (pair? name) ; pair implies a system structure type (unless (and (pair? name) ; pair implies a system structure type
insp)
(inspector-set! rtd insp)) (inspector-set! rtd insp))
;; Register guard ;; Register guard
(register-guards! rtd parent-rtd guard 'at-start))))])) (register-guards! rtd parent-rtd guard 'at-start))))]))