From cfa1bac8bbd235dc5e6c6ccb5893f3089f561370 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 23 Jun 2021 00:59:14 -0700
Subject: .

---
 shell/data.limg | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/shell/data.limg b/shell/data.limg
index 03366720..4386df7a 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -112,11 +112,11 @@
     (hline1 . [def (hline1 screen y x xmax color)
   while (x < xmax)
     (pixel screen x y color)
-    (++ x)])
+    ++x])
     (vline1 . [def (vline1 screen x y ymax color)
   while (y < ymax)
     (pixel screen x y color)
-    ++ y])
+    ++y])
     (hline . [def (hline scr y color)
   (hline1 scr y 0 (width scr) color)])
     (vline . [def (vline scr x color)
@@ -156,7 +156,7 @@
     (sq . [def (sq n) (n * n)])
     (cube . [def (cube n) (n * n * n)])
     (fill_rect . [def (fill_rect screen x1 y1 x2 y2 color)
-  for y y1 (y < y2) (++ y)
+  for y y1 (y < y2) ++y
     (hline1 screen y x1 x2 color)])
     (circle . [def (circle scr cx cy r clr)
   with (x (0 - r)
@@ -170,14 +170,14 @@
       (pixel scr cx+y cy+x clr)
       (set r err)
       when (r <= y)
-        ++ y
+        ++y
         err += (1 + (2 * y))
       when (or (r > x) (err > y))
-        ++ x
+        ++x
         err += (+ 1 (* 2 x))
       set continue (x < 0)])
     (ring . [def (ring screen cx cy r0 w clr)
-  for r r0 (r < (r0 + w)) (++ r)
+  for r r0 (r < (r0 + w)) ++r
     (circle screen cx cy r clr)])
     (Greys . [define Greys
   (map1 (fn(n) (n + 15))
@@ -189,8 +189,8 @@
     (pat . [def (pat screen)
   with (w (width screen)
         h (height screen))
-    for y 0 (y < h) (++ y)
-      for x 0 (x < w) (++ x)
+    for y 0 (y < h) ++y
+      for x 0 (x < w) ++x
         (pixel screen x y x*y)])
     (main . [def (main screen keyboard)
   (pat screen)])
-- 
cgit 1.4.1-2-gfad0