From 3769d82b74b8db1e19d0feab35b2d1f5a0699f03 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 2 Aug 2016 11:37:54 -0600
Subject: [PATCH] fix allocation

Repairs a mistake in 95f6a2342b.
---
 racket/src/racket/src/optimize.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c
index 11635cc351..59d7e71369 100644
--- a/racket/src/racket/src/optimize.c
+++ b/racket/src/racket/src/optimize.c
@@ -1428,7 +1428,7 @@ Scheme_Object *scheme_make_struct_proc_shape(intptr_t k, Scheme_Object *identity
 {
   Scheme_Object *ps;
 
-  ps = scheme_malloc_small_atomic_tagged(sizeof(Scheme_Simple_Object));
+  ps = scheme_malloc_small_tagged(sizeof(Scheme_Simple_Object));
   ps->type = scheme_struct_proc_shape_type;
   SCHEME_PROC_SHAPE_MODE(ps) = k;
   SCHEME_PROC_SHAPE_IDENTITY(ps) = identity;