Modified compiler's machinery to use the new abstractions for descriptors and signatures.

1 files changed, 10 insertions, 1 deletions

diff --git a/stdlib/source/lux/control/parser/text.lux b/stdlib/source/lux/control/parser/text.lux
index bec295f39..44d568eaf 100644
--- a/stdlib/source/lux/control/parser/text.lux
+++ b/stdlib/source/lux/control/parser/text.lux
@@ -345,7 +345,7 @@
   {#.doc "Run a parser with the given input, instead of the real one."}
   (All [a] (-> Text (Parser a) (Parser a)))
   (function (_ real-input)
-    (case (run parser local-input)
+    (case (..run parser local-input)
       (#try.Failure error)
       (#try.Failure error)
 
@@ -363,3 +363,12 @@
 
         #.None
         (exception.throw ..cannot-slice [])))))
+
+(def: #export (embed structured text)
+  (All [s a]
+    (-> (Parser a)
+        (//.Parser s Text)
+        (//.Parser s a)))
+  (do //.monad
+    [raw text]
+    (//.lift (..run structured raw))))