gemini: fix "up" command.

diff --git a/extra/gemini/cli/cli.factor b/extra/gemini/cli/cli.factor
index 5da25a3049345d1ebf03353aed8982eb0afc3605..da16e6b5556b4afac36d1c4456d31a4812ae7f03 100644 (file)
--- a/extra/gemini/cli/cli.factor
+++ b/extra/gemini/cli/cli.factor
@@ -118,7 +118,8 @@ CONSTANT: URL V{ }
 
 : gemini-up ( -- )
     URL ?first [
-        >url f >>query f >>anchor [ "../" url-append-path ] change-path
+        >url f >>query f >>anchor
+        [ dup "/" tail? "./../" "./" ? url-append-path ] change-path
         gemini-go
     ] when* ;
 

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