diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor index 38a3097999..6a52d02009 100644 --- a/extra/webapps/pastebin/pastebin.factor +++ b/extra/webapps/pastebin/pastebin.factor @@ -83,8 +83,7 @@ annotation "ANNOTATIONS" ! LINKS, ETC ! ! ! -: pastebin-url ( -- url ) - URL" $pastebin/list" ; +CONSTANT: pastebin-url URL" $pastebin/" : paste-url ( id -- url ) "$pastebin/paste" >url swap "id" set-query-param ; @@ -187,7 +186,7 @@ M: annotation entity-url "id" value delete-tuples "id" value f delete-tuples ] with-transaction - URL" $pastebin/list" + pastebin-url ] >>submit