sequences: bound -> index-or-length

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

diff --git a/extra/project-euler/117/117.factor b/extra/project-euler/117/117.factor
index 255fb20bea704934e90fd18536362760632282e9..ae23776f6be65bc597e524d9ef9141fd032bc8c3 100644 (file)
--- a/extra/project-euler/117/117.factor
+++ b/extra/project-euler/117/117.factor
@@ -28,7 +28,7 @@ IN: project-euler.117
 <PRIVATE
 
 : next ( seq -- )
-    [ 4 bound tail* sum ] keep push ;
+    [ 4 index-or-length tail* sum ] keep push ;
 
 : (euler117) ( n -- m )
     [ V{ 1 } clone ] dip over [ next ] curry times last ;