diff options
Diffstat (limited to 'stdlib/source/lux/control/concatenative.lux')
-rw-r--r-- | stdlib/source/lux/control/concatenative.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/control/concatenative.lux b/stdlib/source/lux/control/concatenative.lux index 05e74accc..449449b97 100644 --- a/stdlib/source/lux/control/concatenative.lux +++ b/stdlib/source/lux/control/concatenative.lux @@ -3,12 +3,12 @@ i/+ i/- i/* i// i/% i/= i/< i/<= i/> i/>= r/+ r/- r/* r// r/% r/= r/< r/<= r/> r/>= f/+ f/- f/* f// f/% f/= f/< f/<= f/> f/>=)] - (lux (control ["p" parser "p/" Monad<Parser>] + (lux (control ["p" parser ("parser/" Monad<Parser>)] [monad]) (data [text] text/format - [maybe "maybe/" Monad<Maybe>] - (collection [list "list/" Fold<List> Functor<List>])) + [maybe ("maybe/" Monad<Maybe>)] + (collection [list ("list/" Fold<List> Functor<List>)])) [macro (#+ with-gensyms Monad<Meta>)] (macro [code] ["s" syntax (#+ syntax:)] @@ -38,8 +38,8 @@ (s.Syntax Stack) (p.either (p.seq (p.maybe bottom^) (s.tuple (p.some s.any))) - (p.seq (|> bottom^ (p/map (|>> #.Some))) - (p/wrap (list))))) + (p.seq (|> bottom^ (parser/map (|>> #.Some))) + (parser/wrap (list))))) (def: (stack-fold tops bottom) (-> (List Code) Code Code) |