@@ -34,14 +34,10 @@
 	val
 	(if (null? default)
 	    #f
 	    default))))
 
-(define (args:any? . args)
-  (not (null? (filter (lambda (x) x)
-		      (map args:get-arg args)))))
-
 (define (args:get-arg-from ht arg . default)
   (if (null? default)
       (hash-table-ref/default ht arg #f)
       (hash-table-ref/default ht arg (car default))))
 
@@ -56,18 +52,22 @@
   (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 (args:get-arg arg)(set! res #t)))
-     param)
-    res))
+(define (args:any-defined? . args)
+  (not (null? (filter (lambda (x) x)
+		      (map args:get-arg args)))))
+
+;;  ;; one-of args defined
+;; (define (args:any-defined? . param)
+;;   (let ((res #f))
+;;     (for-each 
+;;      (lambda (arg)
+;;        (if (args:get-arg arg)(set! res #t)))
+;;      param)
+;;     res))
 
 ;; args: 
 (define (args:get-args args params switches arg-hash num-needed)
   (let* ((numargs (length args))
 	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))