From eddc0326b792e2b01f4cbc3745a346b9b1800c4c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 24 Jul 2012 16:00:17 -0700
Subject: [PATCH] xkcd: rename private words.

---
 extra/xkcd/xkcd.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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