update usage of count-tuples
							parent
							
								
									969763e807
								
							
						
					
					
						commit
						2eb5d3b36d
					
				|  | @ -90,7 +90,7 @@ M: comment entity-url | ||||||
| 
 | 
 | ||||||
| : list-posts ( -- posts ) | : list-posts ( -- posts ) | ||||||
|     f <post> "author" value >>author |     f <post> "author" value >>author | ||||||
|     select-tuples [ dup id>> f <comment> f count-tuples >>comments ] map |     select-tuples [ dup id>> f <comment> count-tuples >>comments ] map | ||||||
|     reverse-chronological-order ; |     reverse-chronological-order ; | ||||||
| 
 | 
 | ||||||
| : <list-posts-action> ( -- action ) | : <list-posts-action> ( -- action ) | ||||||
|  |  | ||||||
		Loading…
	
		Reference in New Issue