Move make to its own vocabulary, remove fry _ feature

[factor.git] / extra / webapps / wiki / wiki.factor

diff --git a/extra/webapps/wiki/wiki.factor b/extra/webapps/wiki/wiki.factor
index 5f679be431047746be105fa0c0d66aea02f64938..f36e8a11f0eb15636b82d2fa93da5be24f37d559 100644 (file)
--- a/extra/webapps/wiki/wiki.factor
+++ b/extra/webapps/wiki/wiki.factor
@@ -93,18 +93,12 @@ M: revision feed-entry-url id>> revision-url ;
     <article> select-tuple
     dup [ revision>> <revision> select-tuple ] when ;
 
-: init-relative-link-prefix ( -- )
-    URL" $wiki/view/" adjust-url present relative-link-prefix set ;
-
 : <view-article-action> ( -- action )
     <action>
 
         "title" >>rest
 
-        [
-            validate-title
-            init-relative-link-prefix
-        ] >>init
+        [ validate-title ] >>init
 
         [
             "title" value dup latest-revision [
@@ -126,7 +120,6 @@ M: revision feed-entry-url id>> revision-url ;
             validate-integer-id
             "id" value <revision>
             select-tuple from-object
-            init-relative-link-prefix
         ] >>init
 
         { wiki "view" } >>template