From e754cd893950b2c4d6ba04118b61e402c9e1915c Mon Sep 17 00:00:00 2001
From: Maximilian Lupke <simply.malu@googlemail.com>
Date: Mon, 22 Feb 2010 21:29:37 +0100
Subject: [PATCH] add other comparison words

---
 .../semantic-versioning.factor                    | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/extra/semantic-versioning/semantic-versioning.factor b/extra/semantic-versioning/semantic-versioning.factor
index c21cca9a7e..ab7478ac94 100644
--- 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+ = ;