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

avoid fold-left on records in compute-size-increments

Browse Source 
original commit: 76713b4a708efbe1b3698d9febc9d28225f383c5
This commit is contained in:
Matthew Flatt 2020-03-25 09:39:33 -06:00
parent bb4e1c5c51
commit 26a83b4b8e
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
s/inspect.ss
View File

@ -2655,12 +2655,15 @@
[else (loop (fx+ i 1)
(fx+ size (compute-size ($record-ref x i))))]))]
[else
(fold-left (lambda (size fld)
(if (eq? (fld-type fld) 'scheme-object)
(let loop ([size (fx+ (align (rtd-size rtd)) (compute-size rtd))] [flds flds])
(cond
[(null? flds) size]
[else
(let ([fld (car flds)])
(loop (if (eq? (fld-type fld) 'scheme-object)
(fx+ size (compute-size ($object-ref 'scheme-object x (fld-byte fld))))
size))
(fx+ (align (rtd-size rtd)) (compute-size rtd))
flds)])))]
size)
(cdr flds)))]))])))]
[(string? x) (align (fx+ (constant header-size-string) (fx* (string-length x) (constant string-char-bytes))))]
[(box? x) (fx+ (constant size-box) (compute-size (unbox x)))]
[(flonum? x) (constant size-flonum)]