From 0b41611b0a05622c806f9c7c2e27eff47f369b77 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 5 Apr 2026 16:53:53 +0100 Subject: feat: add assets.scm — minimal key/value asset registry MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- assets.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 assets.scm (limited to 'assets.scm') diff --git a/assets.scm b/assets.scm new file mode 100644 index 0000000..9bbbf92 --- /dev/null +++ b/assets.scm @@ -0,0 +1,16 @@ +(module downstroke/assets * + +(import scheme + (chicken base) + (srfi 69)) + +(define (make-asset-registry) + (make-hash-table)) + +(define (asset-set! registry key value) + (hash-table-set! registry key value)) + +(define (asset-ref registry key) + (hash-table-ref/default registry key #f)) + +) ;; end module -- cgit v1.2.3