From 8ea9fc2536aa0eb45092ed3654dba19b0c8e7c20 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Sat, 27 Apr 2024 10:19:54 -0700
Subject: Implement recursive functions.

---
 sort.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sort.sml')

diff --git a/sort.sml b/sort.sml
index 97e4a8b..407619f 100644
--- a/sort.sml
+++ b/sort.sml
@@ -12,7 +12,7 @@ struct
 
   fun merge (_ : 'a * 'a -> order) ([] : 'a list) (l2 : 'a list) : 'a list = l2
     | merge _ l1 [] = l1
-    | merge cmp (xl as (x :: xs)) (yl as (y :: ys)) =
+    | merge cmp (xl as x :: xs) (yl as y :: ys) =
         (case cmp (x, y) of
           GREATER => y :: merge cmp xl ys
         | _ => x :: merge cmp xs yl)
-- 
cgit v1.3.1