gemini: use ../ url-append-path for "up".

[factor.git] / extra / gemini / ui / ui.factor

diff --git a/extra/gemini/ui/ui.factor b/extra/gemini/ui/ui.factor
index a3f8cdb1f7afa5df0856ed590b184f9f6d3da3ec..5ae705ecaa09f5f1b3cb65a9f19ff4abb48413a2 100644 (file)
--- a/extra/gemini/ui/ui.factor
+++ b/extra/gemini/ui/ui.factor
@@ -81,9 +81,7 @@ M: gemini-gadget model-changed
 : com-up ( gemini -- )
     [
         control-value dup [
-            f >>query
-            f >>anchor
-            [ "/" ?tail drop "/" split1-last drop "/" append ] change-path
+            f >>query f >>anchor [ "../" url-append-path ] change-path
         ] when
     ]
     [ show-gemini ] bi ;