help: minor change to use a default-word-help generic.

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 9fb20fd87fb4be1b4d6fa6ca8d048a0714b94d4b..00605cb03590fa8eebcffc26b8811b2e538f855b 100644 (file)
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -10,7 +10,9 @@ IN: help
 
 <PRIVATE
 
-: default-word-help ( word -- elements )
+GENERIC: default-word-help ( word -- elements )
+
+M: word default-word-help
     stack-effect [ in>> ] [ out>> ] bi [
         [
             dup pair? [
@@ -21,17 +23,19 @@ IN: help
         ] { } map>assoc
     ] bi@ append members \ $values prefix 1array ;
 
+M: class default-word-help drop f ;
+
 PRIVATE>
 
 GENERIC: word-help* ( word -- content )
 
 : word-help ( word -- content )
     dup "help" word-prop [ ] [
-        dup word-help* dup [
+        dup word-help* [
             swap 2array 1array
         ] [
-            drop dup class? [ drop f ] [ default-word-help ] if
-        ] if
+            default-word-help
+        ] if*
     ] ?if ;
 
 : $predicate ( element -- )