Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / extra / project-euler / 069 / 069.factor

diff --git a/extra/project-euler/069/069.factor b/extra/project-euler/069/069.factor
index 3a59d665224ba24c13d67a1a6f9169bd6f01b68c..5094dcd674df0fd1f2544c6a59f95a38b9f508be 100644 (file)
--- a/extra/project-euler/069/069.factor
+++ b/extra/project-euler/069/069.factor
@@ -70,7 +70,7 @@ PRIVATE>
     } cond product ;
 
 : primorial-upto ( limit -- m )
-    1 swap '[ dup primorial _ <= ] [ 1+ dup primorial ] produce
+    1 swap '[ dup primorial _ <= ] [ 1 + dup primorial ] produce
     nip penultimate ;
 
 PRIVATE>