Import Upstream version 5d6upstream/5d6

1 files changed, 5 insertions, 4 deletions

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)