SML - Can't find where “uncaught exception Empty” is thrown in quicksort algorithm

Question

I am trying to write a quicksort algorithm with out using and List.nth functions. I\'ve come up with this but when I try to test it, it ends up throwing an "uncaught except