Differences From Artifact [812fd1b225]:
- File attic/margs.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 2895) [annotate] [blame] [check-ins using]
- File margs.scm — part of check-in [d668d912e4] at 2018-02-21 13:47:56 on branch v1.65 — More license clean up (missed a whole bunch) (user: mrwellan, size: 2895) [annotate] [blame] [check-ins using]
To Artifact [cc1616820d]:
- File margs.scm — part of check-in [a7b0d6ce43] at 2022-08-17 19:02:39 on branch v1.70 — changed dashboard to use -target for target/run. Changed db:cautious-open to handle read-only (user: mmgraham, size: 2982) [annotate] [blame] [check-ins using]
︙ | |||
31 32 33 34 35 36 37 38 39 40 41 42 43 44 | 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | + + + + + | (map args:get-arg args))))) (define (args: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 (args:remove-arg-from-ht arg) (hash-table-delete! args:arg-hash arg) ) (define (args:usage . args) (if (> (length args) 0) (apply print "ERROR: " args)) (if (string? help) (print help) (print "Usage: " (car (argv)) " ... ")) (exit 0)) |
︙ |