From 10c4fce0770b4486ebe20ccf2a22313f67741cc1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 15 Aug 2015 21:40:39 -0700
Subject: [PATCH] classes.struct: rename (init-struct) to init-struct.

---
 basis/classes/struct/struct.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 63c3fd159c..c0ff394d5a 100644
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -74,21 +74,23 @@ M: struct hashcode*
     [ heap-size read ] [ memory>struct ] bi ;
 
 <PRIVATE
-: (init-struct) ( class with-prototype: ( prototype -- alien ) sans-prototype: ( class -- alien ) -- alien )
+
+: init-struct ( class with-prototype: ( prototype -- alien ) sans-prototype: ( class -- alien ) -- alien )
     '[ dup struct-prototype _ _ ?if ] keep memory>struct ; inline
+
 PRIVATE>
 
 : (malloc-struct) ( class -- struct )
     [ heap-size malloc ] keep memory>struct ; inline
 
 : malloc-struct ( class -- struct )
-    [ >c-ptr malloc-byte-array ] [ 1 swap heap-size calloc ] (init-struct) ; inline
+    [ >c-ptr malloc-byte-array ] [ 1 swap heap-size calloc ] init-struct ; inline
 
 : (struct) ( class -- struct )
     [ heap-size (byte-array) ] keep memory>struct ; inline
 
 : <struct> ( class -- struct )
-    [ >c-ptr clone ] [ heap-size <byte-array> ] (init-struct) ; inline
+    [ >c-ptr clone ] [ heap-size <byte-array> ] init-struct ; inline
 
 MACRO: <struct-boa> ( class -- quot: ( ... -- struct ) )
     [