55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
(apply print "ERROR: " args))
(if (string? help)
(print help)
(print "Usage: " (car (argv)) " ... "))
(exit 0))
;; one-of args defined
(define (args:any-defined? . param)
(let ((res #f))
(for-each
(lambda (arg)
(if (get-arg arg)(set! res #t)))
param)
res))
|
|
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
(apply print "ERROR: " args))
(if (string? help)
(print help)
(print "Usage: " (car (argv)) " ... "))
(exit 0))
;; one-of args defined
(define (any-defined? . param)
(let ((res #f))
(for-each
(lambda (arg)
(if (get-arg arg)(set! res #t)))
param)
res))
|