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