From 86af891b0c50f322d4dc6c4817dd34c4ffe06bae Mon Sep 17 00:00:00 2001 From: TakeV Date: Sat, 25 May 2024 19:28:44 -0400 Subject: [PATCH] Update media-library logging and return value --- modules/media.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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))