urls: improve derive-url to coerce the arguments to urls.

mrjbq7 · Nov 8, 2024 · a7550a4 · a7550a4
1 parent 952ca84
commit a7550a4
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/basis/urls/urls-docs.factor b/basis/urls/urls-docs.factor
@@ -62,6 +62,12 @@ HELP: derive-url
         "URL\" master-cleanser\" derive-url ."
         "URL\" http://www.truecasey.com/drinks/master-cleanser\""
     }
+    { $example
+        "USING: prettyprint urls ;"
+        "\"https://factorcode.org\""
+        "\"index.html\" derive-url ."
+        "URL\" https://factorcode.org/index.html\""
+    }
 } ;
 
 HELP: ensure-port

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
@@ -179,7 +179,7 @@ PRIVATE>
 PRIVATE>
 
 : derive-url ( base url -- url' )
-    [ clone ] dip over {
+    [ >url clone ] dip >url over {
         [ [ protocol>>  ] either? >>protocol ]
         [ [ username>>  ] either? >>username ]
         [ [ password>>  ] either? >>password ]