diff options
| author | Eduardo Julian | 2018-07-13 22:01:32 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-13 22:01:32 -0400 |
| commit | 69fefab57c40f323d759dc444dbcebad15071585 (patch) | |
| tree | db08a3ea37c7818c8a98fc995d3c19440141b700 /new-luxc/source/luxc/lang/translation/r/case.jvm.lux | |
| parent | 6acf4ffc362c0f8ef77d96f8cfe991adb2d9a0eb (diff) | |
Re-named "Bool" type to "Bit".
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/r/case.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/r/case.jvm.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/translation/r/case.jvm.lux b/new-luxc/source/luxc/lang/translation/r/case.jvm.lux index fb16b8791..42460b620 100644 --- a/new-luxc/source/luxc/lang/translation/r/case.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/r/case.jvm.lux @@ -31,7 +31,7 @@ bodyO))))) (def: #export (translate-record-get translate valueS pathP) - (-> (-> Synthesis (Meta Expression)) Synthesis (List [Nat Bool]) + (-> (-> Synthesis (Meta Expression)) Synthesis (List [Nat Bit]) (Meta Expression)) (do macro.Monad<Meta> [valueO (translate valueS)] @@ -116,7 +116,7 @@ [_ (<tag> value)] (meta/wrap (r.when (r.not (r.= (|> value <format>) cursor-top)) fail-pm!))) - ([#.Bool r.bool] + ([#.Bit r.bool] [#.Frac r.float] [#.Text r.string]) |