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 [5bda76c250]:
- File margs.scm — part of check-in [04ee759e4a] at 2022-06-28 21:49:09 on branch v1.70-ck5 — bit more done on ck5 (user: matt, size: 2948) [annotate] [blame] [check-ins using]
︙ | |||
14 15 16 17 18 19 20 21 22 23 24 25 26 27 | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | + + + + + | ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. (declare (unit margs)) ;; (declare (uses common)) (import chicken.process-context srfi-1 srfi-69 ) (define args:arg-hash (make-hash-table)) (define (args:get-arg arg . default) (if (null? default) (hash-table-ref/default args:arg-hash arg #f) (hash-table-ref/default args:arg-hash arg (car default)))) |
︙ |