From 4c6bb055b09a17343878fcbbb08e5d293d92d415 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 4 Jan 2021 06:28:32 -0700
Subject: [PATCH] cs: fix transparent internal structure types

Commit d96273bc0a broke internal "system" structures in the expander
that need to be transparent.
---
 racket/src/bc/src/struct.c     | 2 +-
 racket/src/cs/rumble/struct.ss | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/racket/src/bc/src/struct.c b/racket/src/bc/src/struct.c
index c48849cb24..d37b2c0396 100644
--- a/racket/src/bc/src/struct.c
+++ b/racket/src/bc/src/struct.c
@@ -5167,7 +5167,7 @@ Scheme_Object *scheme_make_struct_type_from_string(const char *name,
                         guard);
 
   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);
 
   return r;
diff --git a/racket/src/cs/rumble/struct.ss b/racket/src/cs/rumble/struct.ss
index 7614272ddb..69fdc761f4 100644
--- a/racket/src/cs/rumble/struct.ss
+++ b/racket/src/cs/rumble/struct.ss
@@ -605,7 +605,8 @@
           ;; Finish checking and install new property values:
           (install-props! rtd parent-rtd* all-immutables)
           ;; 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))
           ;; Register guard
           (register-guards! rtd parent-rtd guard 'at-start))))]))