From f2a5a8b4ea6fcad57b390ea4f8cf5bf8f0e10d7a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 26 May 2016 17:40:34 -0700
Subject: [PATCH] help: sigh, let's just use the old word-help* name.

---
 basis/help/help.factor | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/basis/help/help.factor b/basis/help/help.factor
index a77aec0a94..bdd25c0c2f 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -8,11 +8,12 @@ namespaces prettyprint sequences sets sorting vocabs words
 words.symbol ;
 IN: help
 
-<PRIVATE
+GENERIC: word-help* ( word -- content )
 
-GENERIC: default-word-help ( word -- elements )
+: word-help ( word -- content )
+    dup "help" word-prop [ ] [ word-help* ] ?if ;
 
-M: word default-word-help
+M: word word-help*
     stack-effect [ in>> ] [ out>> ] bi [
         [
             dup pair? [
@@ -23,7 +24,7 @@ M: word default-word-help
         ] { } map>assoc
     ] bi@ append members \ $values prefix 1array ;
 
-M: predicate default-word-help
+M: predicate word-help*
     { $values { "object" object } { "?" boolean } }
     [
         \ $description ,
@@ -32,14 +33,7 @@ M: predicate default-word-help
         " class." ,
     ] { } make 2array ;
 
-M: class default-word-help drop f ;
-
-PRIVATE>
-
-GENERIC: word-help* ( word -- content )
-
-: word-help ( word -- content )
-    dup "help" word-prop [ ] [ default-word-help ] ?if ;
+M: class word-help* drop f ;
 
 : all-articles ( -- seq )
     articles get keys