X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=d941351d811976f405714b5135fe3e74c682a847;hb=f14c83835a29a6d94daf3b0dcfe88f59d8844e34;hp=f3e69e2756b5b6c0d087fe60085ed04f2139d66c;hpb=da6bfdfbda727ff10cfed908bc496638c1ab755c;p=gacela.git diff --git a/src/gacela.scm b/src/gacela.scm index f3e69e2..d941351 100644 --- a/src/gacela.scm +++ b/src/gacela.scm @@ -341,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))))