From b72153a73875fc0081d072b90ac411c0eaef08a8 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 17 Jul 2022 07:46:21 -0500 Subject: [refactor] [rename] with-line/with-grid-line; all vars now in loop --- src/interactive/canvas.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interactive') diff --git a/src/interactive/canvas.lisp b/src/interactive/canvas.lisp index 256348e..e8bdc39 100644 --- a/src/interactive/canvas.lisp +++ b/src/interactive/canvas.lisp @@ -89,7 +89,7 @@ e.g., drawing a line in a particular color." (let ((pxs (gensym))) `(let ((,pxs ,pixels)) - (with-line (,x ,y) (,start-x ,start-y) (,end-x ,end-y) + (with-grid-line (,x ,y) (,start-x ,start-y) (,end-x ,end-y) (with-pixel (,r ,g ,b ,a) (pixel ,pxs ,x ,y) ,@body))))) -- cgit v1.2.3