1 files changed, 27 insertions, 0 deletions
diff --git a/src/packrat-parsers.adb b/src/packrat-parsers.adb
index f639195..df88e71 100644
--- a/src/packrat-parsers.adb
+++ b/src/packrat-parsers.adb
@@ -582,6 +582,33 @@ package body Packrat.Parsers is
 
 
 
+    package body Redirect is
+
+        procedure Set
+               (Target : in Combinator) is
+        begin
+            Combo := Target;
+        end Set;
+
+        function Call
+               (Input   : in     Traits.Element_Array;
+                Context : in out Parser_Context;
+                Start   : in     Positive)
+            return Combinator_Result is
+        begin
+            if Combo = null then
+                raise Parser_Error;
+            else
+                return Combo (Input, Context, Start);
+            end if;
+        end Call;
+
+    end Redirect;
+
+
+
+
+
     function Sequence
            (Input   : in     Traits.Element_Array;
             Context : in out Parser_Context;