diff options
| author | Eduardo Julian | 2021-06-29 00:54:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-06-29 00:54:13 -0400 |
| commit | 6633cd42f2892ea71530ddeeb93a7e7c0b59faa3 (patch) | |
| tree | aef31dba019fe7bc5141084ab8c25369bd7e83ca /lux-lua/source | |
| parent | db3e864ae66da7f7d1034ae95967605144d5ec47 (diff) | |
Some updates for the new compilers.
Diffstat (limited to 'lux-lua/source')
| -rw-r--r-- | lux-lua/source/program.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index d41447879..b581ce7bd 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -333,19 +333,19 @@ (for {@.old (as_is (with_expansions [$var_args (_.var "...") $str_rel_to_abs (_.var "_utf8_str_rel_to_abs") $decode (_.var "_utf8_decode")] - (template.with [(!int <hex>) - [(_.int (.int (hex <hex>)))] - - (!&| <or> <and> <raw>) - [(|> <raw> - (_.bit_and (!int <and>)) - (_.bit_or (!int <or>)))] - - (!&|< <or> <and> <shift> <raw>) - [(|> <raw> - (_.bit_shr (_.int <shift>)) - (_.bit_and (!int <and>)) - (_.bit_or (!int <or>)))]] + (template.let [(!int <hex>) + [(_.int (.int (hex <hex>)))] + + (!&| <or> <and> <raw>) + [(|> <raw> + (_.bit_and (!int <and>)) + (_.bit_or (!int <or>)))] + + (!&|< <or> <and> <shift> <raw>) + [(|> <raw> + (_.bit_shr (_.int <shift>)) + (_.bit_and (!int <and>)) + (_.bit_or (!int <or>)))]] (as_is (def: rembulan//char (let [$buffer (_.var "buffer") $k (_.var "k") |