diff options
Diffstat (limited to 'build')
| -rwxr-xr-x | build | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -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) |