From 3053fd79bc6ae42415298ee056a268dc2c9b690c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 26 Jun 2022 12:55:04 -0400
Subject: New "parser" hierarchy. [Part 4]

---
 stdlib/source/library/lux/control/security/capability.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/library/lux/control/security')

diff --git a/stdlib/source/library/lux/control/security/capability.lux b/stdlib/source/library/lux/control/security/capability.lux
index 0164bcc7b..96813f726 100644
--- a/stdlib/source/library/lux/control/security/capability.lux
+++ b/stdlib/source/library/lux/control/security/capability.lux
@@ -4,9 +4,8 @@
    [abstract
     [monad (.only do)]]
    [control
+    ["<>" parser]
     ["[0]" io (.only IO)]
-    ["<>" parser (.only)
-     ["<c>" code]]
     [concurrency
      ["[0]" async (.only Async)]]]
    [data
@@ -18,7 +17,8 @@
     [primitive (.except)]]
    ["[0]" meta]
    ["[0]" macro (.only)
-    ["[0]" code]
+    ["[0]" code (.only)
+     ["<[1]>" \\parser]]
     [syntax (.only syntax)
      ["|[0]|" export]
      ["|[0]|" declaration]]]]])
@@ -44,7 +44,7 @@
                 (|export|.parser
                  (all <>.and
                       |declaration|.parser
-                      (<c>.form (all <>.and <c>.local <c>.any <c>.any))))])
+                      (<code>.form (all <>.and <code>.local <code>.any <code>.any))))])
       (macro.with_symbols [g!_]
         (do [! meta.monad]
           [this_module meta.current_module_name
-- 
cgit v1.2.3