(no commit message)

[gacela.git] / src / gacela.scm

diff --git a/src/gacela.scm b/src/gacela.scm
index f14b837bdd956ca859d84a9e70d2b2a7d1681cbd..f8dcaf45e75647534045ad9946a4d52f9a62cccc 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -171,6 +171,17 @@
 
 (define resources-cache (make-weak-value-hash-table))
 
+(define get-resource-from-cache #f)
+(define insert-resource-into-cache #f)
+
+(let ()
+  (set! get-resource-from-cache
+       (lambda (key)
+         (hash-ref resources-cache key)))
+
+  (set! insert-resource-into-cache
+       (lambda (key res)
+         (hash-set! resources-cache key res))))
 
 ;;; GaCeLa Functions