hasheqs

xenomorph/xenomorph/array.rkt

@@ -61,7 +61,7 @@ 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
+         (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)))

xenomorph/xenomorph/versioned-struct.rkt

@@ -86,7 +86,7 @@ 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
+      (define parent (mhasheq x:parent-key parent-arg
                               x:val-key val
                               x:pointer-size-key 0))
       (define version-size