X-Git-Url: https://git.jsancho.org/?p=guile-assimp.git;a=blobdiff_plain;f=src%2Flow-level.scm;h=d604789712e14939ca66c66fa64c3a1cb4baf6b3;hp=7842acad035457579ea34c328777fd38028662d7;hb=0c88b5e31475e07d0d06ae9af01ad05a0efdc875;hpb=3232da94d35e82b13b04e703fe68c5f1f3232838

diff --git a/src/low-level.scm b/src/low-level.scm
index 7842aca..d604789 100644
--- a/src/low-level.scm
+++ b/src/low-level.scm
@@ -111,12 +111,12 @@
   (cond ((= (pointer-address root) 0)
 	 '())
 	(else
-	 (let loop ((i 0))
-	   (cond ((= i size)
-		  '())
-		 (else
-		  (cons (element-proc root (* element-size i))
-			(loop (+ i 1)))))))))
+	 (reverse
+	  (let loop ((i 0) (res '()))
+	    (cond ((= i size)
+		   res)
+		  (else
+		   (loop (+ i 1) (cons (element-proc root (* element-size i)) res)))))))))
 
 (define (get-element-address root-pointer offset)
   (make-pointer (+ (pointer-address root-pointer) offset)))