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

racket/private/serialize: eliminate unnecessary vector->list

Browse Source
This commit is contained in:
Philip McGrath 2019-07-01 15:29:34 -04:00 committed by Matthew Flatt
parent 0ebc43ef24
commit fce209d9f4
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
racket/collects/racket/private/serialize.rkt
View File

@ -253,8 +253,10 @@
(set! cycle-stack (cons v cycle-stack))
(cond
[(serializable-struct? v)
(let ([info (serializable-info v)])
(for-each loop (vector->list ((serialize-info-vectorizer info) v))))]
(let* ([info (serializable-info v)]
[vec ((serialize-info-vectorizer info) v)])
(for ([x (in-vector vec)])
(loop x)))]
[(and (struct? v)
(prefab-struct-key v))
(for-each loop (struct->list v))]
@ -266,7 +268,8 @@
;; No sub-structure
(void)]
[(vector? v)
(for-each loop (vector->list v))]
(for ([x (in-vector v)])
(loop x))]
[(flvector? v) (void)]
[(fxvector? v) (void)]
[(pair? v)
@ -342,9 +345,10 @@
[(serializable-struct? v)
(let ([info (serializable-info v)])
(cons (mod-to-id info mod-map mod-map-cache deser-path->relative-path)
(map (serial #t)
(vector->list
((serialize-info-vectorizer info) v)))))]
(let ([loop (serial #t)]
[vec ((serialize-info-vectorizer info) v)])
(for/list ([x (in-vector vec)])
(loop x)))))]
[(and (struct? v)
(prefab-struct-key v))
=> (lambda (k)
@ -361,7 +365,10 @@
(cons 'p* v-rel)
(list* 'p+ (path->bytes v) (path-convention-type v))))]
[(vector? v)
(define elems (map (serial #t) (vector->list v)))
(define elems
(let ([loop (serial #t)])
(for/list ([x (in-vector v)])
(loop x))))
(if (and (immutable? v)
(andmap quotable? elems))
(cons 'q v)
@ -620,7 +627,7 @@
;; Prefab
(let ([s (apply make-prefab-struct
(cadr v)
(vector->list (make-vector (cddr v) #f)))])
(make-list (cddr v) #f))])
(vector-set! fixup n (lambda (v)
(let-values ([(si skipped?) (struct-info s)])
(let loop ([si si])