Changeset 27080 in project


Ignore:
Timestamp:
07/20/12 21:08:50 (7 years ago)
Author:
Christian Kellermann
Message:

exif: add a guard against not having a exif section in the file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/exif/trunk/exif.scm

    r26686 r27080  
    242242 (define (tag-alist-from-file f tags)
    243243   (and-let* ((ed (exif-from-file f))
     244              (_ (not (null-pointer? ed)))
    244245              (ts (map (lambda (t)
    245246                    (cons t (tag-value->string ed t)))
Note: See TracChangeset for help on using the changeset viewer.