xkcd: save the comic number with XKCD: syntax.
parent
c89cdc4c67
commit
7fc906383c
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue