assets.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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