diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/abstract/monad.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/abstract/monad.lux b/stdlib/source/library/lux/abstract/monad.lux index b90a93580..98baec35e 100644 --- a/stdlib/source/library/lux/abstract/monad.lux +++ b/stdlib/source/library/lux/abstract/monad.lux @@ -91,16 +91,16 @@ (#.Right [state (list (case ?name (#.Some name) (let [name [location.dummy (#.Identifier ["" name])]] - (` ({(~ name) - ({[(~ g!each) (~' in) (~ g!conjoint)] - (~ body')} - (~ name))} - (~ monad)))) + (` (.case (~ monad) + (~ name) + (.case (~ name) + [(~ g!each) (~' in) (~ g!conjoint)] + (~ body'))))) #.None - (` ({[(~ g!each) (~' in) (~ g!conjoint)] - (~ body')} - (~ monad)))))])) + (` (.case (~ monad) + [(~ g!each) (~' in) (~ g!conjoint)] + (~ body')))))])) (#.Left "'do' bindings must have an even number of parts.")) #.None |