Update utility functions.

1 files changed, 8 insertions, 1 deletions

diff --git a/util.scm b/util.scm
index 672f1ddc..d19bdc85 100644
--- a/util.scm
+++ b/util.scm
@@ -3,7 +3,7 @@
   #:export (destructure-lambda let-multi fold-lists catch-let
                                for-each-in
                                define-quick-record define-quick-record!
-                               mod! sort*)
+                               mod! sort* sort*!)
   #:replace (let*)
   )
 
@@ -119,3 +119,10 @@
   (sort items (lambda (a b)
                 (comperator (get a)
                             (get b)))))
+
+;;; This function borrowed from web-ics (calendar util)
+(define* (sort*! items comperator #:optional (get identity))
+  "A sort function more in line with how python's sorted works"
+  (sort! items (lambda (a b)
+                 (comperator (get a)
+                             (get b)))))