From cde758769d8950fa1f5a13aebea62be3b9602d98 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 14 Mar 2021 15:12:26 -0400
Subject: Frustrated with PHP's overflow/underflow logic.

---
 lux-php/source/program.lux | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'lux-php')

diff --git a/lux-php/source/program.lux b/lux-php/source/program.lux
index 14a1646a0..a13039760 100644
--- a/lux-php/source/program.lux
+++ b/lux-php/source/program.lux
@@ -555,14 +555,6 @@
   (-> Any (Promise Any))
   (promise.future (\ world/program.default exit +0)))
 
-(def: (scope body)
-  (-> _.Statement _.Statement)
-  (let [@program (_.constant "lux_program")]
-    ($_ _.then
-        (_.define_function @program (list) body)
-        (_.; (_.apply/* (list) @program))
-        )))
-
 (`` (program: [{service /cli.service}]
       (let [extension ".php"]
         (do io.monad
@@ -581,10 +573,10 @@
                                  [(& Nat _.Label) _.Expression _.Statement]
                                  ..extender
                                  service
-                                 [(packager.package (_.manual "")
+                                 [(packager.package (_.manual "<?php")
                                                     _.code
                                                     _.then
-                                                    ..scope)
+                                                    (|>>))
                                   (format (/cli.target service)
                                           (\ file.default separator)
                                           "program"
-- 
cgit v1.2.3