add other comparison words

diff --git a/extra/semantic-versioning/semantic-versioning.factor b/extra/semantic-versioning/semantic-versioning.factor
index c21cca9a7e966740150309a1f7d4277c8651c626..ab7478ac948471e35b68c246be37f887ff8950ee 100644 (file)
--- a/extra/semantic-versioning/semantic-versioning.factor
+++ b/extra/semantic-versioning/semantic-versioning.factor
@@ -20,3 +20,18 @@ IN: semantic-versioning
         { [ drop 2dup [ length ] bi@ >=< dup +eq+ = not ] [ 2nip ] }
         [ drop [ first ] bi@ <=> ]
     } cond ;
+
+: version< ( version1 version2 -- ? )
+    version<=> +lt+ = ;
+
+: version<= ( version1 version2 -- ? )
+    version<=> [ +lt+ = ] [ +eq+ = ] either? ;
+
+: version= ( version1 version2 -- ? )
+    version<=> +eq+ = ;
+
+: version>= ( version1 version2 -- ? )
+    version<=> [ +gt+ = ] [ +eq+ = ] either? ;
+
+: version> ( version1 version2 -- ? )
+    version<=> +gt+ = ;