diff --git a/modules/media.scm b/modules/media.scm index 6c45000..5ef5f54 100644 --- a/modules/media.scm +++ b/modules/media.scm @@ -27,19 +27,17 @@ (*media-library*)) (define (create-media-library) - (write-log! "Creating media library.") (make-media-library (make-eq-hashtable) (make-eq-hashtable))) (define (add-image! media-library image-symbol image) - (write-log! "Adding image: " image-symbol) (hashtable-set! (media-images media-library) image-symbol image)) (define (add-images! media-library images) - (write-log! "Adding images: " images) (for-each (lambda (val) (add-image! media-library (car val) (cdr val))) images)) (define (get-image media-library image-symbol) - (hashtable-ref (media-images media-library) image-symbol #f)) + "Gets the image in the library, or 'image-not-found if the image does not exists." + (hashtable-ref (media-images media-library) image-symbol 'image-not-found))