core: subseq-index? -> subseq-of?

[factor.git] / extra / mason / git / git.factor

diff --git a/extra/mason/git/git.factor b/extra/mason/git/git.factor
index e66debb4c76b68e0e5000726ad7e5b43385163c8..9cccf438c74b6e2b9d6a590af8a92c6a35fbc63b 100644 (file)
--- a/extra/mason/git/git.factor
+++ b/extra/mason/git/git.factor
@@ -8,7 +8,7 @@ IN: mason.git
 
 : git-id ( -- id )
     { "git" "show" } utf8 [ read-lines ] with-process-reader
-    first words second ;
+    first split-words second ;
 
 <PRIVATE
 
@@ -16,7 +16,7 @@ IN: mason.git
     {
         "git"
         "clone"
-        "git://github.com/factor/factor.git"
+        "https://github.com/factor/factor.git"
     } ;
 
 : git-clone ( -- )
@@ -28,7 +28,7 @@ IN: mason.git
     {
         "git"
         "pull"
-        "git://github.com/factor/factor.git"
+        "https://github.com/factor/factor.git"
         "master"
     } ;
 
@@ -47,7 +47,7 @@ IN: mason.git
 
 : git-pull-failed ( error -- )
     dup output-process-error? [
-        dup output>> "not uptodate. Cannot merge." swap subseq?
+        dup output>> "not uptodate. Cannot merge." subseq-of?
         [ git-repo-corrupted ]
         [ rethrow ]
         if