Added Ord Cell instance

coalton-lang · Sep 25, 2023 · 95a7b92 · 95a7b92
1 parent c45f3fe
commit 95a7b92
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/library/cell.lisp b/library/cell.lisp
@@ -108,6 +108,13 @@
     (define (== c1 c2)
       (== (read c1) (read c2))))
 
+  (define-instance (Ord :a => Ord (Cell :a))
+    (define (<=> c1 c2)
+      (match (<=> (read c1) (read c2))
+        ((LT) LT)
+        ((GT) GT)
+        ((EQ) EQ))))
+
   (define-instance (Num :a => Num (Cell :a))
     (define (+ c1 c2)
       (new (+ (read c1) (read c2))))