syntax-docs: Revert documentation for IN: foo.private

diff --git a/core/syntax/syntax-docs.factor b/core/syntax/syntax-docs.factor
index 4670c460228d68bc0ad966b95e3a67a393156621..a91023f222f7d057c5a8caae6c8598370d6607c1 100644 (file)
--- a/core/syntax/syntax-docs.factor
+++ b/core/syntax/syntax-docs.factor
@@ -867,6 +867,17 @@ HELP: <PRIVATE
         ""
         ": fac ( n -- n! ) 1 swap (fac) ;"
     }
+    "The above is equivalent to:"
+    { $code
+        "IN: factorial.private"
+        ""
+        ": (fac) ( accum n -- n! )"
+        "    dup 1 <= [ drop ] [ [ * ] keep 1 - (fac) ] if ;"
+        ""
+        "IN: factorial"
+        ""
+        ": fac ( n -- n! ) 1 swap (fac) ;"
+    }
 } ;
 
 HELP: PRIVATE>