summaryrefslogtreecommitdiffstats
path: root/build
diff options
context:
space:
mode:
Diffstat (limited to 'build')
-rwxr-xr-xbuild11
1 files changed, 6 insertions, 5 deletions
diff --git a/build b/build
index 1921d3c..a76a67a 100755
--- a/build
+++ b/build
@@ -1,5 +1,5 @@
-#!/bin/sh
-:;exec scmlit -f $0 -e"(bi)" build $*
+#! /bin/sh
+:;exec ./scmlit -f $0 -e"(bi)" build $*
(require (in-vicinity (program-vicinity) "build.scm"))
(require 'getopt)
@@ -65,6 +65,7 @@ NOS/VE, Unicos, VMS, Unix and similar systems.
(append-info-node scm-info "Problems Running" "README")
(append-info-node scm-info "Testing" "README")))
+(define build:csv (make-command-server build '*commands*))
(define (build-from-argv argv)
(cond ((string? argv)
(require 'read-command)
@@ -75,15 +76,15 @@ NOS/VE, Unicos, VMS, Unix and similar systems.
(cond
((pair? argv)
(set! *optind* (+ 1 *optind*))
- ((make-command-server build '*commands*)
+ (build:csv
command
(lambda (comname comval options positions arities types
defaulters checks aliases)
(let* ((params (getopt->parameter-list
argc argv options arities types aliases))
- (fparams (fill-empty-parameters defaulters params)))
+ (fparams (and params (fill-empty-parameters defaulters params))))
(cond ((not (list? params))
- (slib:warn 'build-from-argv 'not-parameters? fparams)
+ ;;(slib:warn 'build-from-argv 'not-parameters? fparams)
#f)
((not (check-parameters checks fparams))
(slib:warn 'build-from-argv 'check-parameters 'failed)