From 88a8be6bda3eecafe1f81b2218bd8f72ea5d0a75 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 29 Nov 2021 17:57:35 -0700 Subject: [PATCH] fix case null errors in sched --- projects/sched/src/sched/Main.kiss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/projects/sched/src/sched/Main.kiss b/projects/sched/src/sched/Main.kiss index f72bf56f..4c873e2c 100644 --- a/projects/sched/src/sched/Main.kiss +++ b/projects/sched/src/sched/Main.kiss @@ -10,7 +10,8 @@ ((when (> hours 12) hours) (set ampm PM) (- hours 12)) - (hours hours)) + (hours hours) + (otherwise (throw "null error"))) (now.getMinutes) ampm))) @@ -19,7 +20,8 @@ ((Time 12 minute AM) minute) ((Time hour minute AM) (+ minute (* 60 hour))) ((Time 12 minute PM) (+ minute (* 60 12))) - ((Time hour minute PM) (+ minute (* 60 (+ hour 12)))))) + ((Time hour minute PM) (+ minute (* 60 (+ hour 12)))) + (otherwise (throw "null error")))) (function isBefore [time1 time2] (< (sortIndex time1) (sortIndex time2)))