diff options
| author | Eduardo Julian | 2017-11-21 16:09:07 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-21 16:09:07 -0400 |
| commit | e37e3713e080606930a5f8442f03dabc4c26a7f9 (patch) | |
| tree | ad772c1801af0d01dc105bccf85703f13b127e50 /new-luxc/source/luxc/lang/analysis/expression.lux | |
| parent | 3eabc421e559e7e2f903e06eb6b47a2ee0cd25b9 (diff) | |
- Fixed some bugs.
- Some small refactoring.
Diffstat (limited to 'new-luxc/source/luxc/lang/analysis/expression.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/analysis/expression.lux | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/new-luxc/source/luxc/lang/analysis/expression.lux b/new-luxc/source/luxc/lang/analysis/expression.lux index 89fb3b93e..6abe8e62b 100644 --- a/new-luxc/source/luxc/lang/analysis/expression.lux +++ b/new-luxc/source/luxc/lang/analysis/expression.lux @@ -93,13 +93,14 @@ (case ?macro (#;Some macro) (do @ - [expansion (function [compiler] - (case (macroL;expand macro args compiler) - (#e;Success [compiler' output]) - (#e;Success [compiler' output]) - - (#e;Error error) - ((&;throw Macro-Expansion-Failed error) compiler)))] + [expansion (: (Meta (List Code)) + (function [compiler] + (case (macroL;expand macro args compiler) + (#e;Error error) + ((&;throw Macro-Expansion-Failed error) compiler) + + output + output)))] (case expansion (^ (list single)) (analyse single) |