From 0985bcda66a46215c80914d521e6955cbb32b816 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 21 Apr 2014 10:02:46 -0600
Subject: [PATCH] minor allocation speedup for immutable hash tables

---
 racket/src/racket/src/hash.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/hash.c b/racket/src/racket/src/hash.c
index 683a4a462b..c779758b72 100644
--- a/racket/src/racket/src/hash.c
+++ b/racket/src/racket/src/hash.c
@@ -2119,7 +2119,7 @@ static AVLNode *make_avl(AVLNode *left,
 {
   AVLNode *avl;
 
-  avl = MALLOC_ONE_TAGGED(AVLNode);
+  avl = scheme_malloc_small_dirty_tagged(sizeof(AVLNode));
   SET_REQUIRED_TAG(avl->type = scheme_rt_avl_node);
   avl->code = code;
   avl->key = key;