From 9f61e7f90d4729a9afba1c08d6ce45af460e5d8f Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Thu, 19 Oct 2017 18:56:42 -0700
Subject: Misc. cleanups.

---
 lib/permissions.nom | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'lib/permissions.nom')

diff --git a/lib/permissions.nom b/lib/permissions.nom
index 5669366..c60471e 100644
--- a/lib/permissions.nom
+++ b/lib/permissions.nom
@@ -5,15 +5,16 @@ require "lib/collections.nom"
 
 # Permission functions
 rule [standardize rules %rules] =:
-    if (=lua "type(vars.rules) == 'string'"): %rules = [%rules]
+    if ((type of %rules) == "string"): %rules = [%rules]
     (nomsu "get_stub" [%]) for all %rules
-    %set = []
+    %result = []
     for %rule in %rules:
         %stub = (nomsu "get_stub" [%rule])
-        %aliases = (((nomsu's "defs")->%stub)->"aliases")
-        for all %aliases: %set -> % = (yes)
-    keys in %set
-
+        %def = ((nomsu's "defs")->%stub)
+        assert %def "Undefined rule: \(%stub)"
+        %aliases = (%def's "aliases")
+        for all %aliases: add % to %result
+    unique %result
 
 rule [restrict %rules to within %elite_rules] =:
     %rules = (standardize rules %rules)
-- 
cgit v1.2.3