From bb4e1c5c513ca3d1b06aa36d91d8515985d4ecc8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 25 Mar 2020 09:13:47 -0600
Subject: [PATCH] avoid copying property lists in inspector

original commit: cab986a82105814e605bb03cc38000dff79dfb61
---
 s/inspect.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/s/inspect.ss b/s/inspect.ss
index f81620f428..687fa7d64d 100644
--- a/s/inspect.ss
+++ b/s/inspect.ss
@@ -2627,7 +2627,7 @@
                [(symbol? x)
                 (fx+ (constant size-symbol)
                   (compute-size (#3%$top-level-value x))
-                  (compute-size (property-list x))
+                  (compute-size ($symbol-property-list x))
                   (compute-size ($system-property-list x))
                   (compute-size ($symbol-name x)))]
                [(vector? x)
@@ -2824,7 +2824,7 @@
             [(symbol? x)
              (incr! symbol (constant size-symbol))
              (compute-composition! (#3%$top-level-value x))
-             (compute-composition! (property-list x))
+             (compute-composition! ($symbol-property-list x))
              (compute-composition! ($system-property-list x))
              (compute-composition! ($symbol-name x))]
             [(vector? x)
@@ -2991,7 +2991,7 @@
                       [(symbol? x)
                        (construct-proc
                          (#3%$top-level-value x)
-                         (property-list x)
+                         ($symbol-property-list x)
                          ($system-property-list x)
                          ($symbol-name x) next-proc)]
                       [(vector? x)