diff options
| author | Eduardo Julian | 2022-03-16 08:37:23 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-03-16 08:37:23 -0400 |
| commit | bf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 (patch) | |
| tree | 49683a62ae8e110c62b42a9a6386bb2ddb3c47c6 /lux-jvm/source/luxc/lang/translation/jvm/loop.lux | |
| parent | d710d9f4fc098e7c243c8a5f23cd42683f13e07f (diff) | |
De-sigil-ification: prefix :
Diffstat (limited to 'lux-jvm/source/luxc/lang/translation/jvm/loop.lux')
| -rw-r--r-- | lux-jvm/source/luxc/lang/translation/jvm/loop.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux index 92b8c0286..4449b3606 100644 --- a/lux-jvm/source/luxc/lang/translation/jvm/loop.lux +++ b/lux-jvm/source/luxc/lang/translation/jvm/loop.lux @@ -53,16 +53,16 @@ ... will refer to the new value of X, instead of the old value, and ... shouldn't be the case. valuesI+ (monad.each @ (function (_ [register argS]) - (: (Operation Inst) - (if (invariant? register argS) - (in function.identity) - (translate archive argS)))) + (is (Operation Inst) + (if (invariant? register argS) + (in function.identity) + (translate archive argS)))) pairs) .let [storesI+ (list@each (function (_ [register argS]) - (: Inst - (if (invariant? register argS) - function.identity - (_.ASTORE register)))) + (is Inst + (if (invariant? register argS) + function.identity + (_.ASTORE register)))) (list.reversed pairs))]] (in (|>> (_.fuse valuesI+) (_.fuse storesI+) |