Trash

[gacela.git] / src / gacela.scm

diff --git a/src/gacela.scm b/src/gacela.scm
index 7fb242fdb94561afce498a328e8629105bed7e03..3b65aff208d01470b6954ef2166c9096e8b11649 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -18,11 +18,15 @@
 (define-module (gacela gacela)
   #:use-module (gacela system)
   #:use-module (ice-9 threads)
-  #:use-module (srfi srfi-1))
+  #:use-module (srfi srfi-1)
+  #:export (make-world))
 
 
 ;;; Entities and components
 
+(define (make-world . entities)
+  (apply make-entity-set entities))
+
 (define entities-mutex (make-mutex))
 (define game-entities '())
 (define game-components '())