diff options
| author | Eduardo Julian | 2021-03-14 15:12:26 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-03-14 15:12:26 -0400 |
| commit | cde758769d8950fa1f5a13aebea62be3b9602d98 (patch) | |
| tree | 5e1feed0007a302a29c42165c38300fb5b0c315b /lux-php | |
| parent | dff34f01e838475b817803ec856661fe8940e5c0 (diff) | |
Frustrated with PHP's overflow/underflow logic.
Diffstat (limited to 'lux-php')
| -rw-r--r-- | lux-php/source/program.lux | 12 |
1 files changed, 2 insertions, 10 deletions
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" |