aboutsummaryrefslogtreecommitdiff
path: root/lux-php
diff options
context:
space:
mode:
Diffstat (limited to 'lux-php')
-rw-r--r--lux-php/source/program.lux12
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"