From 92e38530a332c1f6a304bab41f9c02d47682b706 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Tue, 14 Jul 2009 20:50:52 +1200
Subject: [PATCH] alien.marshall.structs: made some words private

---
 basis/alien/marshall/structs/structs.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/basis/alien/marshall/structs/structs.factor b/basis/alien/marshall/structs/structs.factor
index c3509cf8d7..54bcab45f2 100644
--- a/basis/alien/marshall/structs/structs.factor
+++ b/basis/alien/marshall/structs/structs.factor
@@ -6,6 +6,7 @@ kernel libc locals parser quotations sequences slots words
 alien.structs lexer vocabs.parser fry effects ;
 IN: alien.marshall.structs
 
+<PRIVATE
 : define-struct-accessor ( class name quot -- )
     [ "accessors" create create-method dup make-inline ] dip define ;
 
@@ -31,6 +32,7 @@ IN: alien.marshall.structs
         [ name>> '[ _ malloc-object >>underlying ] append ]
         [ name>> 1array ]
     } cleave { } swap <effect> define-declared ;
+PRIVATE>
 
 :: define-struct-tuple ( name -- )
     name create-in :> class