Changeset 27082 in project


Ignore:
Timestamp:
07/20/12 21:29:42 (9 years ago)
Author:
Christian Kellermann
Message:

exif: replace the nonnull-pointer? with a more elaborate but equivalent clause

File:
1 edited

Legend:

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

    r27080 r27082  
    3939 (tag-alist-from-file thumbnail->u8vector)
    4040 (import chicken scheme)
    41  (import foreign foreigners lolevel)
    42 
    43  (use srfi-4 srfi-13)
     41 (import foreign foreigners)
     42
     43 (use srfi-4 srfi-13 lolevel)
    4444
    4545 (foreign-declare "#include <libexif/exif-data.h>")
     
    242242 (define (tag-alist-from-file f tags)
    243243   (and-let* ((ed (exif-from-file f))
    244               (_ (not (null-pointer? ed)))
     244              (_ (not (equal? (address->pointer 0) ed)))
    245245              (ts (map (lambda (t)
    246246                    (cons t (tag-value->string ed t)))
Note: See TracChangeset for help on using the changeset viewer.