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