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

Fix missing rest parameters

db4
Slava Pestov 2008-06-14 00:44:23 -05:00
parent f0a37253f2
commit 2d35ea233f
1 changed files with 2 additions and 0 deletions
extra/webapps/blogs

2
extra/webapps/blogs/blogs.factor
View File

@ -116,6 +116,7 @@ M: comment entity-url
: <posts-by-feed-action> ( -- action )
<feed-action>
"author" >>rest
[ validate-author ] >>init
[ "Recent Posts by " "author" value append ] >>title
[ list-posts ] >>entries
@ -123,6 +124,7 @@ M: comment entity-url
: <post-feed-action> ( -- action )
<feed-action>
"id" >>rest
[ validate-integer-id "id" value post "post" set-value ] >>init
[ "post" value feed-entry-title ] >>title
[ "post" value entity-url ] >>url