Index: mtargs/mtargs.scm
==================================================================
--- mtargs/mtargs.scm
+++ mtargs/mtargs.scm
@@ -56,21 +56,19 @@
       (print help)
       (print "Usage: " (car (argv)) " ... "))
   (exit 0))
 
  ;; one-of args defined
-(define (args:any-defined? . param)
+(define (any-defined? . param)
   (let ((res #f))
     (for-each 
      (lambda (arg)
-       (if (args:get-arg arg)(set! res #t)))
+       (if (get-arg arg)(set! res #t)))
      param)
     res))
 
 ;; args: 
-(define (args:get-args args params switches arg-hash num-needed)
-  (let* ((numargs (length args))
 (define (get-args args params switches arg-hash num-needed)
   (let* ((numtargs (length args))
 	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))
     (if (< numtargs (if adj-num-needed adj-num-needed 2))
 	(if (>= num-needed 1)