diff options
| author | Eduardo Julian | 2017-11-12 23:49:34 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-12 23:49:34 -0400 |
| commit | ca297162d5416a8c7b8af5f27757900d82d3ad03 (patch) | |
| tree | ec9e664f09d6c29d91e9ae6be5d3abb6ef0e7ca4 /new-luxc/source/luxc/lang/synthesis/expression.lux | |
| parent | 63624fd6b7f9f2563898655472025020483d398f (diff) | |
- Fixed some bugs.
- Improved error reporting.
- Optimized pattern-matching a bit.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/synthesis/expression.lux | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/synthesis/expression.lux b/new-luxc/source/luxc/lang/synthesis/expression.lux index f761fb57c..30704a2d2 100644 --- a/new-luxc/source/luxc/lang/synthesis/expression.lux +++ b/new-luxc/source/luxc/lang/synthesis/expression.lux @@ -86,10 +86,7 @@ (#;Cons [lastP lastA] prevsPA) (let [transform-branch (: (-> la;Pattern la;Analysis ls;Path) (function [pattern expr] - (|> (synthesize expr) - (~) ("lux case exec") - ("lux case seq" (~ (caseS;path outer-arity pattern))) - (`)))) + (caseS;path outer-arity pattern (synthesize expr)))) pathS (list/fold caseS;weave (transform-branch lastP lastA) (list/map (product;uncurry transform-branch) prevsPA))] |