project-euler.186: fix, I guess it's been broken for awhile.

diff --git a/extra/project-euler/186/186.factor b/extra/project-euler/186/186.factor
index 922a28cb22c51f21a0212937bc635b545f0a3129..ea7fad29ce5d2443a75b0b2fe29abb2050b35740 100644 (file)
--- a/extra/project-euler/186/186.factor
+++ b/extra/project-euler/186/186.factor
@@ -65,7 +65,7 @@ IN: project-euler.186
     ] if ;
 
 : <relation> ( n -- unionfind )
-    <disjoint-set> [ [ add-atom ] curry each ] keep ;
+    <iota> <disjoint-set> [ [ add-atom ] curry each ] keep ;
 
 : euler186 ( -- n )
     <generator> 0 1000000 <relation> (p186) ;