From deda2c0fd8689349fea2a900199a76ff7ecb319e Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:26 -0800 Subject: Import Upstream version 5d6 --- build | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'build') diff --git a/build b/build index 1921d3c..cde6729 100755 --- a/build +++ b/build @@ -1,4 +1,4 @@ -#!/bin/sh +#! /bin/sh :;exec scmlit -f $0 -e"(bi)" build $* (require (in-vicinity (program-vicinity) "build.scm")) @@ -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) -- cgit v1.2.3