hacker-news: use parallel-map-timeout

diff --git a/extra/hacker-news/hacker-news.factor b/extra/hacker-news/hacker-news.factor
index c76b929651186998dcaa6aaa3d09f37e7078228c..342603481066fe885bf4a56d114a83d272cbe17e 100644 (file)
--- a/extra/hacker-news/hacker-news.factor
+++ b/extra/hacker-news/hacker-news.factor
@@ -22,6 +22,12 @@ CONSTANT: christmas-green COLOR: #376627
     hacker-news-ids swap index-or-length head
     [ hacker-news-id>json-url http-get-json ] parallel-map ;
 
+: hacker-news-items-timeout ( n endpoint timeout -- seq )
+    [
+        hacker-news-ids swap index-or-length head
+        [ hacker-news-id>json-url http-get-json ]
+    ] dip parallel-map-timeout ;
+
 : hacker-news-top-stories ( n -- seq )
     "topstories" hacker-news-items ;