furnace.recaptcha: logic in recaptcha-url was wrong, fix and test case

[factor.git] / basis / furnace / recaptcha / recaptcha.factor

diff --git a/basis/furnace/recaptcha/recaptcha.factor b/basis/furnace/recaptcha/recaptcha.factor
index 3ae20f14bbf9df2779bc4aa473bef4a1c05a5d2e..fff1f61610c3bba25cfd921a881807b9a1e4720d 100644 (file)
--- a/basis/furnace/recaptcha/recaptcha.factor
+++ b/basis/furnace/recaptcha/recaptcha.factor
@@ -39,8 +39,7 @@ M: recaptcha call-responder*
     XML] ;
 
 : recaptcha-url ( secure? -- ? )
-    "http://www.google.com/recaptcha/api/challenge"
-    "https://www.google.com/recaptcha/api/challenge" ?
+    "https" "http" ? "://www.google.com/recaptcha/api/challenge" append
     recaptcha-error cget [ "?error=" glue ] when* >url ;
 
 : render-recaptcha ( -- xml )