From 5fd3230b2ecc34dcf099473f1f9f4c2e694bac4f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 22 Jul 2014 08:40:06 -0700
Subject: [PATCH] curl: slight refactor.

---
 extra/curl/curl.factor | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/extra/curl/curl.factor b/extra/curl/curl.factor
index ba728f2fc7..fcd7f2d068 100644
--- a/extra/curl/curl.factor
+++ b/extra/curl/curl.factor
@@ -11,19 +11,23 @@ DESTRUCTOR: curl_easy_cleanup
 
 DESTRUCTOR: fclose
 
+: check-code ( code -- )
+    CURLE_OK assert= ;
+
 : curl-init ( -- CURL )
     curl_easy_init &curl_easy_cleanup ;
 
+: curl-set-opt ( CURL key value -- )
+    curl_easy_setopt check-code ;
+
 : curl-set-url ( CURL url -- )
-    CURLOPT_URL swap present
-    curl_easy_setopt CURLE_OK assert= ;
+    CURLOPT_URL swap present curl-set-opt ;
 
 : curl-set-file ( CURL path -- )
-    CURLOPT_FILE swap "wb" fopen &fclose
-    curl_easy_setopt CURLE_OK assert= ;
+    CURLOPT_FILE swap "wb" fopen &fclose curl-set-opt ;
 
 : curl-perform ( CURL -- )
-    curl_easy_perform CURLE_OK assert= ;
+    curl_easy_perform check-code ;
 
 PRIVATE>