From 6633cd42f2892ea71530ddeeb93a7e7c0b59faa3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 29 Jun 2021 00:54:13 -0400
Subject: Some updates for the new compilers.

---
 lux-lua/source/program.lux | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'lux-lua/source/program.lux')

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")
-- 
cgit v1.2.3