.

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)])