From a858775a6831e5d880d9c0f88470f12a7e9b91f9 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Mon, 9 Oct 2017 20:17:38 -0700
Subject: Fixing up sorting more.

---
 lib/utils.nom | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'lib/utils.nom')

diff --git a/lib/utils.nom b/lib/utils.nom
index 2e469c5..55df1b7 100644
--- a/lib/utils.nom
+++ b/lib/utils.nom
@@ -87,11 +87,9 @@ compile [max of %items by %value_expr] to:
         |    return \(%value_expr as lua)
         |end)
 compile [sort %items] to: "table.sort(\(%items as lua))"
-compile [sort %items by %key] to: ".."
-    |nomsu.utils.sort(\(%items as lua), function(x)
-    |    local ret, vars = nil, {['']=x};
-    |    \(%key as lua statements)
-    |    return ret
+rule [sort %items by %key] =: lua expr ".."
+    |nomsu.utils.sort(\(%items), function(x)
+    |    return (\(%key))(nomsu, {['']=x});
     |end)
 
 # String utilities
-- 
cgit v1.2.3