From 90b7ca501b0d66e22fb4cfbba8bfd79ced1887ef Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Tue, 14 Jul 2009 22:32:08 +1200
Subject: [PATCH] alien.(inline,marshall): removed unused doc helper words and
 made the rest private

---
 basis/alien/inline/inline-docs.factor     |  2 ++
 basis/alien/marshall/marshall-docs.factor | 23 ++++++++---------------
 2 files changed, 10 insertions(+), 15 deletions(-)

diff --git a/basis/alien/inline/inline-docs.factor b/basis/alien/inline/inline-docs.factor
index 58eca558ea..7f4bd510f4 100644
--- a/basis/alien/inline/inline-docs.factor
+++ b/basis/alien/inline/inline-docs.factor
@@ -3,10 +3,12 @@
 USING: help.markup help.syntax kernel strings effects quotations ;
 IN: alien.inline
 
+<PRIVATE
 : $binding-note ( x -- )
     drop
     { "This word requires that certain variables are correctly bound. "
         "Call " { $link POSTPONE: define-c-library } " to set them up." } print-element ;
+PRIVATE>
 
 HELP: ;C-LIBRARY
 { $syntax ";C-LIBRARY" }
diff --git a/basis/alien/marshall/marshall-docs.factor b/basis/alien/marshall/marshall-docs.factor
index fd1b57579f..6002b0c1c3 100644
--- a/basis/alien/marshall/marshall-docs.factor
+++ b/basis/alien/marshall/marshall-docs.factor
@@ -4,6 +4,7 @@ USING: help.markup help.syntax kernel quotations sequences
 strings alien alien.c-types math byte-arrays ;
 IN: alien.marshall
 
+<PRIVATE
 : $memory-note ( arg -- )
     drop "This word returns a pointer to unmanaged memory."
     print-element ;
@@ -15,19 +16,7 @@ IN: alien.marshall
 : $see-article ( arg -- )
     drop { "See " { $vocab-link "alien.inline" } "." }
     print-element ;
-
-: $marshall-descr* ( arg -- )
-    dup
-    "When the argument is a sequence, returns a pointer to an array of"
-    print-element print-element
-    "otherwise returns a pointer to a single "
-    print-element print-element " value." print-element ;
-
-: $marshall-descr** ( arg -- )
-    "Takes a one or two dimensional array of "
-    print-element print-element
-    " and returns a pointer to the equivalent C structure."
-    print-element ;
+PRIVATE>
 
 HELP: ?malloc-byte-array
 { $values
@@ -62,7 +51,9 @@ HELP: marshall-bool*
     { "?/seq" "t/f or sequence" }
     { "alien" alien }
 }
-{ $description { $marshall-descr* "bool" } }
+{ $description "When the argument is a sequence, returns a pointer to an array of bool, "
+   "otherwise returns a pointer to a single bool value."
+}
 { $notes { $list $c-ptr-note $memory-note } } ;
 
 HELP: marshall-bool**
@@ -70,7 +61,9 @@ HELP: marshall-bool**
     { "seq" sequence }
     { "alien" alien }
 }
-{ $description { $marshall-descr** "generalized booleans" } }
+{ $description "Takes a one or two dimensional array of generalized booleans "
+  "and returns a pointer to the equivalent C structure."
+}
 { $notes { $list $c-ptr-note $memory-note } } ;
 
 HELP: marshall-primitive