@@ -33,10 +33,15 @@
 (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))))
 
+
+(define (args:remove-arg-from-ht arg)
+      (hash-table-delete! args:arg-hash arg)
+)
+
 (define (args:usage . args)
   (if (> (length args) 0)
       (apply print "ERROR: " args))
   (if (string? help)
       (print help)