From 9cc27f22f78da8c1bfdcdaa6262411f92764a558 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 23 Sep 2013 15:47:31 -0700 Subject: [PATCH] http.client: add quotation stack effects. --- basis/http/client/client.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor index 1799485e43..e072c23875 100644 --- a/basis/http/client/client.factor +++ b/basis/http/client/client.factor @@ -163,7 +163,7 @@ ERROR: download-failed response ; : check-response-with-body ( response body -- response body ) [ >>body check-response ] keep ; -: with-http-request ( request quot -- response ) +: with-http-request ( request quot: ( chunk -- ) -- response ) [ (with-http-request) ] with-destructors ; inline : http-request ( request -- response data ) @@ -176,7 +176,7 @@ ERROR: download-failed response ; : http-get ( url -- response data ) http-request ; -: with-http-get ( url quot -- response ) +: with-http-get ( url quot: ( chunk -- ) -- response ) [ ] dip with-http-request ; inline : download-name ( url -- name )