Remove unnecessary helper word after refactoring

diff --git a/extra/project-euler/069/069.factor b/extra/project-euler/069/069.factor
index eae1d82ece729175c6e9bb45af93e313362efa5c..3a59d665224ba24c13d67a1a6f9169bd6f01b68c 100644 (file)
--- a/extra/project-euler/069/069.factor
+++ b/extra/project-euler/069/069.factor
@@ -69,12 +69,9 @@ PRIVATE>
         [ nth-prime primes-upto ]
     } cond product ;
 
-: (primorial-upto) ( count limit -- m )
-    '[ dup primorial _ <= ] [ 1+ dup primorial ] produce
-    nip penultimate ;
-
 : primorial-upto ( limit -- m )
-    1 swap (primorial-upto) ;
+    1 swap '[ dup primorial _ <= ] [ 1+ dup primorial ] produce
+    nip penultimate ;
 
 PRIVATE>