Loris  Check-in [4fa5bfe6f1]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:unbreak alist-ref
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:4fa5bfe6f191efd716c3d3b6da181e818f9d7d04
User & Date: jesper 2016-04-18 18:15:36
Context
2016-04-18
18:18
Recognise running from csi with an absolute path. check-in: a57ef3a1be user: jesper tags: trunk
18:15
unbreak alist-ref check-in: 4fa5bfe6f1 user: jesper tags: trunk
09:36
Let's not tag 2.0.0 just yet, but wait until the API is finalised. Unbump. The v2.0.0 tag has also been removed from the repo [b1ab17dad2]. check-in: 5d78f9cc74 user: jesper tags: trunk
Changes

Changes to convenience.scm.

55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
               default)))))

    (define alist-update
      (case-lambda
        ((k v lst) (alist-update k v lst eqv?))
        ((k v lst =?)
         (let loop ((rest lst))
           (cond ((null? lst) (list (cons k v)))
                 ((not (list? rest)) (error "alist-update: not a list" rest))
                 (else (let ((a (car rest)))
                         (cond ((not (pair? a))
                                (error "alist-update: not a pair" a))
                       ((=? (car a) k)
                        (cons (cons k v) (cdr rest)))
                       (else







|







55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
               default)))))

    (define alist-update
      (case-lambda
        ((k v lst) (alist-update k v lst eqv?))
        ((k v lst =?)
         (let loop ((rest lst))
           (cond ((null? rest) (list (cons k v)))
                 ((not (list? rest)) (error "alist-update: not a list" rest))
                 (else (let ((a (car rest)))
                         (cond ((not (pair? a))
                                (error "alist-update: not a pair" a))
                       ((=? (car a) k)
                        (cons (cons k v) (cdr rest)))
                       (else