diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/analysis/common.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/analysis/common.lux | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/analysis/common.lux b/new-luxc/source/luxc/lang/analysis/common.lux index 5e618d64c..2f3e3a37d 100644 --- a/new-luxc/source/luxc/lang/analysis/common.lux +++ b/new-luxc/source/luxc/lang/analysis/common.lux @@ -15,8 +15,9 @@ (do meta;Monad<Meta> [[_ varT] (&;with-type-env tc;var) analysis (&;with-expected-type varT - action)] - (wrap [varT analysis]))) + action) + knownT (&;with-type-env (tc;clean varT))] + (wrap [knownT analysis]))) (exception: #export Variant-Tag-Out-Of-Bounds) |