diff options
author | Eduardo Julian | 2017-05-30 19:42:20 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-05-30 19:42:20 -0400 |
commit | bbf78668e9ae2fb3deb78217ae97791df89ada56 (patch) | |
tree | b6767b688d87c820d80fc8c54b0a352142d0fcbe /new-luxc/source/luxc/lang/analysis.lux | |
parent | 953f49d5a46209f2d75e67b50edea378261108cd (diff) |
- Some refactoring.
Diffstat (limited to 'new-luxc/source/luxc/lang/analysis.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/analysis.lux | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/analysis.lux b/new-luxc/source/luxc/lang/analysis.lux index 3cd63b65f..b96bd9ba2 100644 --- a/new-luxc/source/luxc/lang/analysis.lux +++ b/new-luxc/source/luxc/lang/analysis.lux @@ -1,7 +1,17 @@ (;module: - lux - (lux (data [product])) - (.. ["lp" pattern])) + lux) + +(type: #export #rec Pattern + (#BindP Nat) + (#BoolP Bool) + (#NatP Nat) + (#IntP Int) + (#DegP Deg) + (#RealP Real) + (#CharP Char) + (#TextP Text) + (#TupleP (List Pattern)) + (#VariantP Nat Nat Pattern)) (type: #export #rec Analysis #Unit @@ -14,7 +24,7 @@ (#Text Text) (#Sum (Either Analysis Analysis)) (#Product Analysis Analysis) - (#Case Analysis (List [lp;Pattern Analysis])) + (#Case Analysis (List [Pattern Analysis])) (#Function Scope Analysis) (#Apply Analysis Analysis) (#Procedure Text (List Analysis)) |