@@ -24,10 +24,11 @@
      get-arg-from
      get-args
      usage
      print-args
      any-defined?
+     remove-arg-from-ht 
      ) 
 
 (import scheme) ;; gives us cond-expand in chicken-4
 
 (cond-expand
@@ -103,6 +104,9 @@
 (define (any-defined? . args)
   (not (null? (filter (lambda (x) x)
 		      (map get-arg args)))))
 
 
+(define (remove-arg-from-ht arg)
+      (hash-table-delete! arg-hash arg))
+
 )