From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 05:42:36 -0400
Subject: De-sigil-ification: $

---
 lux-python/source/program.lux | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'lux-python/source')

diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux
index 718cb9d95..cc7ef2162 100644
--- a/lux-python/source/program.lux
+++ b/lux-python/source/program.lux
@@ -537,16 +537,16 @@
 
 (def: (program context program)
   (Program (_.Expression Any) (_.Statement Any))
-  ($_ _.then
-      (_.import "sys")
-      (_.when (_.= (_.string "__main__") (_.var "__name__"))
-              (_.statement (_.apply/* (list (|> (_.var "sys") (_.the "argv")
-                                                ... The first entry in the list will be the program.py file itself
-                                                ... so, it must be removed so only the program's arguments are left.
-                                                (_.slice_from (_.int +1))
-                                                runtime.lux::program_args)
-                                            _.none)
-                                      program)))))
+  (all _.then
+       (_.import "sys")
+       (_.when (_.= (_.string "__main__") (_.var "__name__"))
+               (_.statement (_.apply/* (list (|> (_.var "sys") (_.the "argv")
+                                                 ... The first entry in the list will be the program.py file itself
+                                                 ... so, it must be removed so only the program's arguments are left.
+                                                 (_.slice_from (_.int +1))
+                                                 runtime.lux::program_args)
+                                             _.none)
+                                       program)))))
 
 (def: (declare_success! _)
   (-> Any (Async Any))
@@ -562,12 +562,12 @@
         old_limit current_limit
         new_limit (_.bit_shl (_.int +2) old_limit)]
     (<| (_.comment "-*- coding: utf-8 -*-")
-        ($_ _.then
-            (; (_.do "setrecursionlimit" (list new_limit) $sys))
-            ... (; (_.do "stack_size" (list current_limit) $threading))
-            (_.def @program (list) body)
-            (; (_.apply/* (list) @program))
-            ))))
+        (all _.then
+             (; (_.do "setrecursionlimit" (list new_limit) $sys))
+             ... (; (_.do "stack_size" (list current_limit) $threading))
+             (_.def @program (list) body)
+             (; (_.apply/* (list) @program))
+             ))))
 
 (def: (lux_compiler it)
   (-> Any platform.Custom)
-- 
cgit v1.2.3