From 47672483693d634a41cab218bcf360366aaea7df Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 9 Apr 2013 13:57:53 -0700
Subject: [PATCH] math.factorials: style.

---
 extra/math/factorials/factorials.factor | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/extra/math/factorials/factorials.factor b/extra/math/factorials/factorials.factor
index 10607f1aef..bd22ff9cfb 100644
--- 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&& ;