Some more renaming to make things consistent
This commit is contained in:
parent
2a4945d9c7
commit
af50ef7c09
1 changed files with 4 additions and 4 deletions
|
|
@ -101,18 +101,18 @@
|
||||||
(add-queued-entities))
|
(add-queued-entities))
|
||||||
|
|
||||||
;; Entity creation/removal interface
|
;; Entity creation/removal interface
|
||||||
(export add-named-entity add-entity remove-entity)
|
(export create-named-entity create-entity remove-entity)
|
||||||
|
|
||||||
;; Create an entity in the world and return it's ID
|
;; Create an entity in the world and return it's ID
|
||||||
(define (add-named-entity id . components)
|
(define (create-named-entity id . components)
|
||||||
(assert (symbol? id))
|
(assert (symbol? id))
|
||||||
(assert (every record? components))
|
(assert (every record? components))
|
||||||
(queue-add-entity id components)
|
(queue-add-entity id components)
|
||||||
id)
|
id)
|
||||||
|
|
||||||
;; Shortcut for anonymous instancing
|
;; Shortcut for anonymous instancing
|
||||||
(define (add-entity . components)
|
(define (create-entity . components)
|
||||||
(apply add-named-entity (gensym) components))
|
(apply create-named-entity (gensym) components))
|
||||||
|
|
||||||
;; Remove an entity from the world
|
;; Remove an entity from the world
|
||||||
(define (remove-entity id)
|
(define (remove-entity id)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue