math.factorials: style.

diff --git a/extra/math/factorials/factorials.factor b/extra/math/factorials/factorials.factor
index 10607f1aeffc68410ee656022f8e60d983b9aaf5..bd22ff9cfbd07497ddaf805297bc3a1aee210c57 100644 (file)
--- a/extra/math/factorials/factorials.factor
+++ b/extra/math/factorials/factorials.factor
@@ -104,21 +104,14 @@ ALIAS: pochhammer rising-factorial
 
 <PRIVATE
 
-: orial-prime? ( n quot: ( n -- m ) -- ? )
+: -prime? ( n quot: ( n -- m ) -- ? )
     [ 1 1 [ pick over - 1 <= ] ] dip
     '[ drop [ 1 + ] _ bi ] until nip - abs 1 = ; inline
 
 PRIVATE>
 
 : factorial-prime? ( n -- ? )
-    {
-        [ prime? ]
-        [ [ factorial ] orial-prime? ]
-    } 1&& ;
+    { [ prime? ] [ [ factorial ] -prime? ] } 1&& ;
 
 : primorial-prime? ( n -- ? )
-    {
-        [ prime? ]
-        [ 2 > ]
-        [ [ primorial ] orial-prime? ]
-    } 1&& ;
+    { [ prime? ] [ 2 > ] [ [ primorial ] -prime? ] } 1&& ;