xkcd: save the comic number with XKCD: syntax.

db4
John Benediktsson 2015-07-14 16:17:17 -07:00
parent c89cdc4c67
commit 7fc906383c
1 changed files with 2 additions and 2 deletions

View File

@ -47,10 +47,10 @@ PRIVATE>
: latest-xkcd. ( -- )
"http://xkcd.com" comic. ;
TUPLE: xkcd image ;
TUPLE: xkcd number image ;
C: <xkcd> xkcd
SYNTAX: XKCD: scan-number xkcd-image <xkcd> suffix! ;
SYNTAX: XKCD: scan-number dup xkcd-image <xkcd> suffix! ;
M: xkcd pprint* image>> <image-section> add-section ;