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

Fix RSS feed links

db4
Slava Pestov 2008-09-22 23:45:16 -05:00
parent 0240427ab3
commit 8abda5c653
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,7 +19,7 @@ db.types db.tuples lcs farkup urls ;
IN: webapps.wiki IN: webapps.wiki
: wiki-url ( rest path -- url ) : wiki-url ( rest path -- url )
[ "$wiki/" % % "/" % % ] "" make [ "$wiki/" % % "/" % present % ] "" make
<url> swap >>path ; <url> swap >>path ;
: view-url ( title -- url ) "view" wiki-url ; : view-url ( title -- url ) "view" wiki-url ;