Changeset 22093 in project


Ignore:
Timestamp:
12/22/10 21:28:48 (9 years ago)
Author:
Christian Kellermann
Message:

isbndb: always return isbn in the resulting alist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/isbn/trunk/isbndb.scm

    r22090 r22093  
    3838
    3939  (define (isbn->alist isbn)
    40     (filter (lambda (x) (not (null? (cdr x)))) ; ignore empty tags
    41             (pre-post-order
    42              (sxml:child-elements
    43               ((sxpath '(// BookList BookData)) (search isbn)))
    44              isbndb->scheme-rules))))
     40    (cons
     41     `(isbn . ,isbn)
     42     (filter (lambda (x) (not (null? (cdr x)))) ; ignore empty tags
     43             (pre-post-order
     44              (sxml:child-elements
     45               ((sxpath '(// BookList BookData)) (search isbn)))
     46                    isbndb->scheme-rules)))))
Note: See TracChangeset for help on using the changeset viewer.