From ca297162d5416a8c7b8af5f27757900d82d3ad03 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Nov 2017 23:49:34 -0400
Subject: - Fixed some bugs. - Improved error reporting. - Optimized
 pattern-matching a bit.

---
 new-luxc/source/luxc/lang/synthesis/expression.lux | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'new-luxc/source/luxc/lang/synthesis/expression.lux')

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))]
-- 
cgit v1.2.3