diff options
author | Eduardo Julian | 2018-07-04 19:05:21 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-04 19:05:21 -0400 |
commit | 01353c65c1a6b03285eee4de28a12abdbf3c9715 (patch) | |
tree | d69fb0561acd363926dc0a3d8d11f3fc351d91a5 /stdlib/source/lux/lang/compiler/analysis/structure.lux | |
parent | 9ba7b6416a34d9f031b113aa48b1663b14dcb0aa (diff) |
- "with-stack" function for stacking exceptions.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/lang/compiler/analysis/structure.lux | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/stdlib/source/lux/lang/compiler/analysis/structure.lux b/stdlib/source/lux/lang/compiler/analysis/structure.lux index 78b36bc32..ed809135a 100644 --- a/stdlib/source/lux/lang/compiler/analysis/structure.lux +++ b/stdlib/source/lux/lang/compiler/analysis/structure.lux @@ -77,9 +77,7 @@ (-> Compiler Nat Code (Operation Analysis)) (do ///.Monad<Operation> [expectedT macro.expected-type] - (///.with-stacked-errors - (function (_ _) - (ex.construct cannot-analyse-variant [expectedT tag valueC])) + (///.with-stack cannot-analyse-variant [expectedT tag valueC] (case expectedT (#.Sum _) (let [flat (type.flatten-variant expectedT) @@ -191,9 +189,7 @@ (-> Compiler (List Code) (Operation Analysis)) (do ///.Monad<Operation> [expectedT macro.expected-type] - (///.with-stacked-errors - (function (_ _) - (ex.construct cannot-analyse-tuple [expectedT membersC])) + (///.with-stack cannot-analyse-tuple [expectedT membersC] (case expectedT (#.Product _) (..typed-product analyse membersC) |