Fix user handling in uri parser.

Closes #1065

string-find-right returns the cursor to the right of the match

Author: ashinn

lib/chibi/uri-test.sld

@@ -44,6 +44,17 @@
         (test "q=cats" (uri-query (string->uri str)))
         (test "recent" (uri-fragment (string->uri str))))
 
+      (let ((str "ssh://git@codeberg.org/retropikzel/snow-chibi-testing.git"))
+        (test-assert (uri? (string->uri str)))
+        (test 'ssh (uri-scheme (string->uri str)))
+        (test "git" (uri-user (string->uri str)))
+        (test "codeberg.org" (uri-host (string->uri str)))
+        (test #f (uri-port (string->uri str)))
+        (test "/retropikzel/snow-chibi-testing.git"
+            (uri-path (string->uri str)))
+        (test #f (uri-query (string->uri str)))
+        (test #f (uri-fragment (string->uri str))))
+
       (test "/%73" (uri-path (string->uri "http://google.com/%73")))
       (test "/s" (uri-path (string->uri "http://google.com/%73" #t)))
       (test "a=1&b=2;c=3"

lib/chibi/uri.scm

@@ -151,11 +151,12 @@
                             (%make-uri
                              scheme
                              (and (string-cursor>? at sc2)
-                                  (decode (substring-cursor str sc2 at)))
+                                  (decode
+                                   (substring-cursor str sc2 (string-cursor-prev str at))))
                              (decode
                               (substring-cursor
                                str
-                               (if (string-cursor>? at sc2) (string-cursor-next str at) sc2)
+                               (if (string-cursor>? at sc2) at sc2)
                                (if (string-cursor<? colon3 slash)
                                    colon3
                                    slash)))