[uim commit] r5649 - trunk/uim

[codesite-noreply]

Author: ek.kato
Date: Thu Dec 11 20:07:58 2008
New Revision: 5649

Modified:
   trunk/uim/curl.c

Log:
* uim/curl.c (uim_curl_perform) : Fix type used to store return
  value of uim_scm_symbol_value_bool().


Modified: trunk/uim/curl.c
==============================================================================
--- trunk/uim/curl.c    (original)
+++ trunk/uim/curl.c    Thu Dec 11 20:07:58 2008
@@ -152,7 +152,7 @@
 static CURLcode
 uim_curl_perform(CURL *curl)
 {
-  uim_lisp use_proxy_;
+  uim_bool use_proxy;
   char *ua;
   char *referer;
   char *http_proxy;
@@ -160,14 +160,14 @@

   ua = uim_scm_symbol_value_str("uim-curl-user-agent");
   referer = uim_scm_symbol_value_str("uim-curl-referer");
-  use_proxy_ = uim_scm_symbol_value_bool("uim-curl-use-proxy?");
+  use_proxy = uim_scm_symbol_value_bool("uim-curl-use-proxy?");
   http_proxy = uim_scm_symbol_value_str("uim-curl-http-proxy");

   curl_easy_setopt(curl, CURLOPT_USERAGENT,
                   (ua != NULL) ? ua : "libcurl-agent/1.0");
   curl_easy_setopt(curl, CURLOPT_REFERER,
                   (referer != NULL) ? referer : "");
-  if(TRUEP(use_proxy_)) {
+  if (use_proxy) {
     curl_easy_setopt(curl, CURLOPT_PROXY,
                     (http_proxy != NULL) ? http_proxy : "");
   }