22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
get-arg
get-arg-number
get-arg-from
get-args
usage
print-args
any-defined?
)
(import scheme) ;; gives us cond-expand in chicken-4
(cond-expand
(chicken-5
(import scheme (chicken base) (chicken port) (chicken file) (chicken process-context))
|
>
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
get-arg
get-arg-number
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
(chicken-5
(import scheme (chicken base) (chicken port) (chicken file) (chicken process-context))
|
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)))))
)
|
>
>
|
>
|
102
103
104
105
106
107
108
109
110
111
112
|
(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))
)
|