Check-in [723d9456e8]
Not logged in

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:723d9456e847e92480a837c46095ae081182b58e
User & Date: aldo 2018-12-09 15:41:45
Context
2018-12-09
17:58
added library qrencode Leaf 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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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))
)