From 3e6649b0bedc3d936b9dab1050c031de2385279f Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 9 May 2022 15:16:59 -0400 Subject: [PATCH] fix zip type error in asciilib --- projects/asciilib/src/asciilib/Surface.kiss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/projects/asciilib/src/asciilib/Surface.kiss b/projects/asciilib/src/asciilib/Surface.kiss index 57df7cbd..d7150b4f 100644 --- a/projects/asciilib/src/asciilib/Surface.kiss +++ b/projects/asciilib/src/asciilib/Surface.kiss @@ -35,9 +35,9 @@ // TODO rectangle type // TODO optional source rectangle argument (method blitSurface [:Surface surface x y] - (doFor [srcX destX] (the kiss.List> (zipDrop (range surface.width) (range x (+ x surface.width)))) + (doFor [srcX destX] (zipDrop (range surface.width) (range x (+ x surface.width))) (when (< -1 destX width) - (doFor [srcY destY] (the kiss.List> (zipDrop (range 0 surface.height) (range y (+ y surface.height)))) + (doFor [srcY destY] (zipDrop (range 0 surface.height) (range y (+ y surface.height))) (when (< -1 destY height) (when (surface.isCellOpaque srcX srcY) (setBackgroundColor destX destY (surface.getBackgroundColor srcX srcY))