Minor Project Euler cleanup

diff --git a/extra/project-euler/047/047.factor b/extra/project-euler/047/047.factor
index 30c01d8f61faa59cc851bc27a68c2d5903f82e1f..9caaa8776f79c28e445d2db4b099f14d934ebbc9 100644 (file)
--- a/extra/project-euler/047/047.factor
+++ b/extra/project-euler/047/047.factor
@@ -32,7 +32,7 @@ IN: project-euler.047
 <PRIVATE
 
 : (consecutive) ( count goal test -- n )
-    pick pick = [
+    2over = [
         swap - nip
     ] [
         dup prime? [ [ drop 0 ] 2dip ] [