libs.xkcd: fix regexp for not needing \ all over

locals-and-roots
Doug Coleman 2016-06-27 11:30:12 -07:00
parent ec17b254e6
commit 19510ea5a7
1 changed files with 1 additions and 1 deletions

View File

@ -13,7 +13,7 @@ PRIVATE<
: 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 -- )