sequences: bound -> index-or-length

[factor.git] / extra / hacker-news / hacker-news.factor

diff --git a/extra/hacker-news/hacker-news.factor b/extra/hacker-news/hacker-news.factor
index a4bc74ce04b8b9793eeabbbd2c3ab166a0e08295..212b7fd5b9af93e4d2635d36528cb67f288bf4cd 100644 (file)
--- a/extra/hacker-news/hacker-news.factor
+++ b/extra/hacker-news/hacker-news.factor
@@ -20,7 +20,7 @@ CONSTANT: christmas-green COLOR: #376627
     "https://hacker-news.firebaseio.com/v0/item/%d.json?print=pretty" sprintf ;
 
 : hacker-news-items ( n endpoint -- seq )
-    hacker-news-ids swap bound head
+    hacker-news-ids swap index-or-length head
     [ hacker-news-id>json-url http-get nip json> ] parallel-map ;
 
 : hacker-news-top-stories ( n -- seq )