Merge branch 'master' of https://github.com/factor/factor

diff --git a/extra/xkcd/xkcd.factor b/extra/xkcd/xkcd.factor
index 8b9546f64aa8150f7045b6a35c25553df3a8f2e7..e2927e2b1fd5dc3274bbf5cd73001b7dd89388b2 100644 (file)
--- a/extra/xkcd/xkcd.factor
+++ b/extra/xkcd/xkcd.factor
@@ -14,7 +14,7 @@ IN: xkcd
 : comic-image ( url -- image )
     http-get nip
     R/ \/\/imgs\.xkcd\.com\/comics\/[^\.]+\.(png|jpg)/
-    first-match >string "http:" prepend load-http-image ;
+    first-match >string "https:" prepend load-http-image ;
 
 : comic-image. ( url -- )
     comic-image image. ;
@@ -32,7 +32,7 @@ IN: xkcd
 PRIVATE>
 
 : xkcd-url ( n -- url )
-    "http://xkcd.com/%s/" sprintf ;
+    "https://xkcd.com/%s/" sprintf ;
 
 : xkcd-image ( n -- image )
     xkcd-url comic-image ;
@@ -41,10 +41,10 @@ PRIVATE>
     xkcd-url comic. ;
 
 : random-xkcd. ( -- )
-    "http://dynamic.xkcd.com/random/comic/" comic. ;
+    "https://c.xkcd.com/random/comic/" comic. ;
 
 : latest-xkcd. ( -- )
-    "http://xkcd.com" comic. ;
+    "https://xkcd.com" comic. ;
 
 TUPLE: xkcd number image ;