From 437a207ec01c2ab18bb424cc2d6d36b59f3c8efb Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 8 Nov 2008 14:42:52 -0500
Subject: Broaden set of possible especializations

---
 src/order.sml | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/order.sml')

diff --git a/src/order.sml b/src/order.sml
index 4a78823b..3f5bce65 100644
--- a/src/order.sml
+++ b/src/order.sml
@@ -42,4 +42,12 @@ fun joinL f (os1, os2) =
         join (f (h1, h2), fn () => joinL f (t1, t2))
       | (_ :: _, nil) => GREATER
 
+fun joinO f (v1, v2) =
+    case (v1, v2) of
+        (NONE, NONE) => EQUAL
+      | (NONE, _) => LESS
+      | (_, NONE) => GREATER
+
+      | (SOME v1, SOME v2) => f (v1, v2)
+
 end
-- 
cgit v1.2.3