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

avoid copying property lists in inspector

Browse Source 
original commit: cab986a82105814e605bb03cc38000dff79dfb61
This commit is contained in:
Matthew Flatt 2020-03-25 09:13:47 -06:00
parent 6a964d7600
commit bb4e1c5c51
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
s/inspect.ss
View File

@ -2627,7 +2627,7 @@
[(symbol? x) [(symbol? x)
(fx+ (constant size-symbol) (fx+ (constant size-symbol)
(compute-size (#3%$top-level-value x)) (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 ($system-property-list x))
(compute-size ($symbol-name x)))] (compute-size ($symbol-name x)))]
[(vector? x) [(vector? x)
@ -2824,7 +2824,7 @@
[(symbol? x) [(symbol? x)
(incr! symbol (constant size-symbol)) (incr! symbol (constant size-symbol))
(compute-composition! (#3%$top-level-value x)) (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! ($system-property-list x))
(compute-composition! ($symbol-name x))] (compute-composition! ($symbol-name x))]
[(vector? x) [(vector? x)
@ -2991,7 +2991,7 @@
[(symbol? x) [(symbol? x)
(construct-proc (construct-proc
(#3%$top-level-value x) (#3%$top-level-value x)
(property-list x) ($symbol-property-list x)
($system-property-list x) ($system-property-list x)
($symbol-name x) next-proc)] ($symbol-name x) next-proc)]
[(vector? x) [(vector? x)