Draw rows of tiles

1 files changed, 7 insertions, 3 deletions

diff --git a/src/game.scm b/src/game.scm
index f9f6b56..193af38 100644
--- a/src/game.scm
+++ b/src/game.scm
@@ -64,10 +64,12 @@
 
 (define (draw-tile target tileset tile-id)
   (let ((tile (tileset-tile tileset tile-id)))
+    
     (sdl2:render-copy! *renderer* *level-tileset-texture*
-		       (tile-rect tile) (tile-rect tile))))
+		       (tile-rect tile)
+		       (tile-rect tile))))
 
-(define (draw-tilemap-row draw-fn rows)
+(define (draw-tilemap-rows  draw-fn rows)
   (unless (null? rows)
     (map draw-fn (car rows))
     (draw-tilemap-row draw-fn (cdr rows))))
@@ -75,7 +77,9 @@
 (define (draw-tilemap target tilemap)
   (let ((map-layer (layer-map (list-ref (tilemap-layers tilemap) 0)))
 	(tileset (tilemap-tileset tilemap)))
-    (draw-tilemap-row (lambda (tile-id) (draw-tile target tileset tile-id)) map-layer)))
+    (draw-tilemap-rows
+     (lambda (tile-id) (draw-tile target tileset tile-id))
+     map-layer)))
 
 (set! (sdl2:render-draw-color *renderer*) +background-color+)
 (sdl2:render-clear! *renderer*)