From adadae2154cc3b2c431e838963ea7c87c88b194e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 17 Dec 2018 22:18:31 -0800 Subject: [PATCH] hasheqs --- xenomorph/xenomorph/array.rkt | 6 +++--- xenomorph/xenomorph/versioned-struct.rkt | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/xenomorph/xenomorph/array.rkt b/xenomorph/xenomorph/array.rkt index 48bbaddd..6ea960f2 100644 --- a/xenomorph/xenomorph/array.rkt +++ b/xenomorph/xenomorph/array.rkt @@ -61,9 +61,9 @@ https://github.com/mbutterick/restructure/blob/master/src/Array.coffee (send @type x:encode item port parent)))) (cond [(x:int? @len) - (define new-parent (mhash x:pointers-key null - x:start-offset-key (pos port) - x:parent-key parent)) + (define new-parent (mhasheq x:pointers-key null + x:start-offset-key (pos port) + x:parent-key parent)) (hash-set! new-parent x:pointer-offset-key (+ (pos port) (x:size array new-parent))) (send @len x:encode (length array) port) ; encode length at front (encode-items new-parent) diff --git a/xenomorph/xenomorph/versioned-struct.rkt b/xenomorph/xenomorph/versioned-struct.rkt index fb243226..68c238f3 100644 --- a/xenomorph/xenomorph/versioned-struct.rkt +++ b/xenomorph/xenomorph/versioned-struct.rkt @@ -86,9 +86,9 @@ https://github.com/mbutterick/restructure/blob/master/src/VersionedStruct.coffee (define/override (x:size [val #f] [parent-arg #f] [include-pointers #t]) (unless val (raise-argument-error 'x:versioned-struct-size "value" val)) - (define parent (mhash x:parent-key parent-arg - x:val-key val - x:pointer-size-key 0)) + (define parent (mhasheq x:parent-key parent-arg + x:val-key val + x:pointer-size-key 0)) (define version-size (let ([struct-type @type]) (if (or (symbol? struct-type) (procedure? struct-type))