steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

reddit: rename "subreddit-top" to "subreddit.".

db4
John Benediktsson 2012-09-24 09:55:18 -07:00
parent 55a230f368
commit 1d8f4a3a34
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/reddit/reddit.factor
View File

@ -100,7 +100,6 @@ PRIVATE>
: story>author-url ( story -- url ) : story>author-url ( story -- url )
author>> "http://reddit.com/user/" prepend >url ; author>> "http://reddit.com/user/" prepend >url ;
<PRIVATE <PRIVATE
: write-title ( title url -- ) : write-title ( title url -- )
@ -126,7 +125,7 @@ PRIVATE>
PRIVATE> PRIVATE>
: subreddit-top ( subreddit -- ) : subreddit. ( subreddit -- )
get-subreddit data>> [ get-subreddit data>> [
1 + "%2d. " sprintf write-text { 1 + "%2d. " sprintf write-text {
[ [ title>> ] [ url>> ] bi write-title nl ] [ [ title>> ] [ url>> ] bi write-title nl ]