Differences From Artifact [73a7b43ccf]:
- File mtargs/mtargs.scm — part of check-in [e429044746] at 2019-12-15 21:44:24 on branch v1.70-defunct-try — Move bunch of stuff from opensrc repo to Megatest repo to ease development. (user: matt, size: 2856) [annotate] [blame] [check-ins using] [more...]
To Artifact [e2f1c247b7]:
- File mtargs/mtargs.scm — part of check-in [be8fe269fa] at 2019-12-16 04:17:56 on branch v1.70-defunct-try — Pulled in ulex (user: matt, size: 2886) [annotate] [blame] [check-ins using] [more...]
︙ | |||
38 39 40 41 42 43 44 45 46 47 48 49 50 51 | 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | + + | (if (null? default) (hash-table-ref/default arg-hash arg #f) (hash-table-ref/default arg-hash arg (car default)))) (define (any-defined? . args) (not (null? (filter (lambda (x) x) (map get-arg args))))) ;; (define any any-defined?) (define (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 (usage . args) |
︙ |