regexp: one R/ syntax to rule them all, simpler this way.

[factor.git] / extra / xkcd / xkcd.factor

diff --git a/extra/xkcd/xkcd.factor b/extra/xkcd/xkcd.factor
index cafe3399ed999d9bfb744904b66d3c5976dec8b8..162945809ad67d4ced6f9cc6c1ed118b5a7cdbd2 100644 (file)
--- a/extra/xkcd/xkcd.factor
+++ b/extra/xkcd/xkcd.factor
@@ -13,7 +13,7 @@ IN: xkcd
 
 : comic-image ( url -- image )
     http-get nip
-    R@ http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)@
+    R/ http:\\/\\/imgs\.xkcd\.com\\/comics\\/[^\.]+\.(png|jpg)/
     first-match >string load-http-image ;
 
 : comic-image. ( url -- )