@@ -103,6 +103,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))
+
 )