diff options
| -rw-r--r-- | stdlib/source/lux/data/text/lexer.lux | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/stdlib/source/lux/data/text/lexer.lux b/stdlib/source/lux/data/text/lexer.lux index e43d87bd9..9146ca136 100644 --- a/stdlib/source/lux/data/text/lexer.lux +++ b/stdlib/source/lux/data/text/lexer.lux @@ -510,3 +510,10 @@ (if (Text/= "" unconsumed) (#E;Success [real-input value]) (#E;Error ($_ Text/append "Unconsumed input: " unconsumed)))))) + +(def: #export (seq' left right) + (-> (Lexer Text) (Lexer Text) (Lexer Text)) + (do Monad<Lexer> + [=left left + =right right] + (wrap (Text/append =left =right)))) |