From 8c7809d024e85d0a8acfb794a4db41b0e4bc13e6 Mon Sep 17 00:00:00 2001
From: Shinya Sato <shinnya.sato@gmail.com>
Date: Mon, 2 May 2022 09:49:01 +0900
Subject: v0.8.2-1

---
 comparison/SML/bsort-40000.sml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'comparison/SML/bsort-40000.sml')

diff --git a/comparison/SML/bsort-40000.sml b/comparison/SML/bsort-40000.sml
index 5e6e98b..d9e1a00 100644
--- a/comparison/SML/bsort-40000.sml
+++ b/comparison/SML/bsort-40000.sml
@@ -12,7 +12,8 @@ fun go xs 0 = xs
   | go xs n = go (bs xs n) (n-1);
 
 
-fun bsort xs = go xs (length(xs) - 1);
+fun bsort [] = []
+  | bsort xs = go xs (length(xs) - 1);
 
 
 (* Creates a random list *)
-- 
cgit v1.2.3