X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=52b0442f5b9f79d3056a0dde572b79e740bdbcb9;hb=fd6032e61930e10fc10b41e43acf98674998288a;hp=a45337a1ad41cd14d92660981ce632faa47b3a70;hpb=f222261d0c3d6670b2069f66311c9113133deb7c;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index a45337a..52b0442 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -15,6 +15,14 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
+(define-module (gacela gacela)
+  #:use-module (gacela events)
+  #:use-module (gacela video)
+  #:use-module (gacela audio)
+  #:use-module (ice-9 optargs)
+  #:export ())
+
+
 ;;; Default values for Gacela
 
 (define *title* "Gacela")
@@ -41,6 +49,10 @@
 	(lambda (key res)
 	  (hash-set! resources-cache key res))))
 
+(define-macro (use-cache-with-procedure proc-name)
+  `(begin
+     (define ,(string->symbol (string-concatenate (list (symbol->string proc-name) "-without-cache"))) ,proc-name)))
+
 
 ;;; GaCeLa Functions