Differences From Artifact [49b76da6ef]:
- File mtargs/mtargs.scm — part of check-in [3528bbcf9e] at 2023-02-15 19:57:53 on branch v1.80-tcp-inmem — wip (user: matt, size: 3084) [annotate] [blame] [check-ins using] [more...]
To Artifact [09e4f74c98]:
- File mtargs/mtargs.scm — part of check-in [fba5bad548] at 2023-03-27 15:49:36 on branch v1.80 — Removed use of margs (user: mrwellan, size: 3183) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
96 97 98 99 100 101 102 103 104 |
))
(define (print-args arg-hash)
(for-each (lambda (arg)
(print " " arg " " (hash-table-ref/default arg-hash arg #f)))
(hash-table-keys arg-hash)))
)
| > > > > | 96 97 98 99 100 101 102 103 104 105 106 107 108 |
))
(define (print-args arg-hash)
(for-each (lambda (arg)
(print " " arg " " (hash-table-ref/default arg-hash arg #f)))
(hash-table-keys arg-hash)))
(define (any-defined? . args)
(not (null? (filter (lambda (x) x)
(map get-arg args)))))
)
|