xkcd: save the comic number with XKCD: syntax.
parent
c89cdc4c67
commit
7fc906383c
|
@ -47,10 +47,10 @@ PRIVATE>
|
||||||
: latest-xkcd. ( -- )
|
: latest-xkcd. ( -- )
|
||||||
"http://xkcd.com" comic. ;
|
"http://xkcd.com" comic. ;
|
||||||
|
|
||||||
TUPLE: xkcd image ;
|
TUPLE: xkcd number image ;
|
||||||
|
|
||||||
C: <xkcd> xkcd
|
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 ;
|
M: xkcd pprint* image>> <image-section> add-section ;
|
||||||
|
|
Loading…
Reference in New Issue