Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed bug for in args-fold.sls thanks to anonymous |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
723d9456e847e92480a837c46095ae08 |
| User & Date: | aldo 2018-12-09 15:41:45 |
Context
|
2018-12-09
| ||
| 17:58 | added library qrencode check-in: 7182389a97 user: aldo tags: trunk | |
| 15:41 | fixed bug for in args-fold.sls thanks to anonymous check-in: 723d9456e8 user: aldo tags: trunk | |
| 15:35 | fixed bug for in args-fold.sls thanks to anonymous check-in: 75d1b77428 user: aldo tags: trunk | |
Changes
Changes to srfi/s37/args-fold.sls.
37 38 39 40 41 42 43 44 45 46 |
(not (and ra oa))
(procedure? p))
(c n ra oa p)
(assertion-violation 'option "invalid arguments" n ra oa p))))))
(define args-fold
(let ([option make-option])
(include/resolve ("srfi" "37") "srfi-37-reference.scm")
args-fold))
)
|
| |
37 38 39 40 41 42 43 44 45 46 |
(not (and ra oa))
(procedure? p))
(c n ra oa p)
(assertion-violation 'option "invalid arguments" n ra oa p))))))
(define args-fold
(let ([option make-option])
(include/resolve ("srfi" "s37") "srfi-37-reference.scm")
args-fold))
)
|