OOPS! The 'if' statement should be "(if (null? errobj)". I had my logic backwards.
Quoting [EMAIL PROTECTED]: > ;;---------------------------------------------------------- > ;; 'add-comment' attaches "gimp-comment" parasite to 'image' > ;; with the value of the passed 'string' > ;; > (define (add-comment image string) > (*catch 'errobj > (gimp-image-parasite-find image "gimp-comment") > (if (not (null? errobj)) > (gimp-image-parasite-detach image "gimp-comment") > ) > ) > (gimp-image-parasite-attach (list "gimp-comment" > 3 > (bytes-append string))) > ) > _______________________________________________ Gimp-user mailing list [email protected] https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
