Megatest

Diff
Login

Differences From Artifact [09e4f74c98]:

To Artifact [36700736fa]:


101
102
103
104
105
106
107



108
	    (hash-table-keys arg-hash)))

(define (any-defined? . args)
  (not (null? (filter (lambda (x) x)
		      (map get-arg args)))))





)







>
>
>

101
102
103
104
105
106
107
108
109
110
111
	    (hash-table-keys arg-hash)))

(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))

)