xkcd: Typos.

diff --git a/extra/xkcd/xkcd.factor b/extra/xkcd/xkcd.factor
index cf4411d345bdf27169b734ae7f72c9fb71b86b60..15563efaaca69c5bea82131804617da34cb8f99e 100644 (file)
--- a/extra/xkcd/xkcd.factor
+++ b/extra/xkcd/xkcd.factor
@@ -9,19 +9,19 @@ IN: xkcd
 
 <PRIVATE
 
-: xkcd-url>image ( url -- image )
+: comic-image ( url -- image )
     http-get nip
     R" http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)"
     first-match >string load-http-image ;
 
-: comic-image. ( url -- ) xkcd-url>image image. ;
+: comic-image. ( url -- ) comic-image image. ;
 
-: xkcd-url>string ( url -- string )
+: comic-string ( url -- string )
     http-get nip string>xml
     "transcript" "id" deep-tag-with-attr children>string ;
 
 : comic-text. ( url -- )
-    xkcd-url>string
+    comic-image
     80 wrap-lines [ print ] each ;
 
 : comic. ( url -- )