Now mobs use let*

[gacela.git] / src / gacela.scm

diff --git a/src/gacela.scm b/src/gacela.scm
index ab0748b722e863e364b9ef819b21aec3729dcb3e..d941351d811976f405714b5135fe3e74c682a847 100644 (file)
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -53,6 +53,7 @@
                   lambda-mob
                   define-checking-mobs)
   #:re-export (get-current-color
+              get-texture-properties
               set-current-color
               with-color
               progn-textures
@@ -340,7 +341,7 @@
                 (else
                  (set! ,mob-id-z-index (+ ,mob-id-z-index z))
                  (translate-mob x y))))
-        (let ,attr
+        (let* ,attr
           ,@(map
              (lambda (a)
                `(let ((val (assoc-ref ,data-symbol ',(car a))))