Misc. cleanups.

lib/collections.nom

@@ -159,6 +159,8 @@ rule [%items sorted by %key] =:
     %copy = (% for all %items)
     sort %copy by %key
     %copy
+rule [unique %items] =:
+    keys in (dict from entries ([%,yes] for all %items))
 
 # Metatable stuff
 compile [counter] to: "setmetatable({}, {__index=function() return 0; end})"

lib/moonscript.nom

@@ -1,7 +1,7 @@
 require "lib/metaprogramming.nom"
 
 # Moonscript!
-parse [moonscript block %moonscript_code] as:
+parse [moonscript do> %moonscript_code] as:
     lua do> ".."
         |local parse, compile = require('moonscript.parse'), require('moonscript.compile');
         |local moon_code = nomsu:tree_to_value(vars.moonscript_code, vars);
@@ -15,7 +15,7 @@ parse [moonscript block %moonscript_code] as:
         |end;
         |return "do\\n"..lua_code.."\\nend";
 
-parse [moonscript %moonscript_code] as:
+parse [moonscript> %moonscript_code] as:
     lua do> ".."
         |local parse, compile = require('moonscript.parse'), require('moonscript.compile');
         |local moon_code = nomsu:tree_to_value(vars.moonscript_code, vars);

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")
+        %def = ((nomsu's "defs")->%stub)
-        for all %aliases: %set -> % = (yes)
+        assert %def "Undefined rule: \(%stub)"
-    keys in %set
+        %aliases = (%def's "aliases")
-
+        for all %aliases: add % to %result
+    unique %result
 
 rule [restrict %rules to within %elite_rules] =:
     %rules = (standardize rules %rules)