From 12cab55271e0980a9561c415f06be4cc1bacac15 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Tue, 23 Jul 2024 17:26:12 -0700
Subject: [PATCH] Update looping examples

---
 images/apple/DRAWL.po | Bin 143360 -> 143360 bytes
 src/lisp/loop.lisp    |   2 +-
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po
index 10f1d1359b0af5d08b4d45d7ff415cdedb2c52f9..229c58d22adc76283b0a07196ac842e9be177268 100644
GIT binary patch
delta 785
zcmZXQ!Artm7{=dEX2~u!3Tc8Ug3`%SJLGY=C8O!YY0)YFip~asf53u)vO~~GK>`VH
zT{?8~)FnE3m!eyQW_{mm+xM*<wmsYTd*A1I+S5pT8o5(AUK9WxA^Ev4nmQNHtt4P6
zgdkI@$hrI>xYt?%c#t-ozl0($rtMK=2&Q&x+DRqrb3ZbsY{8?*F>@BAo{clZ-9w%m
zO+Wx4k0LK-F&zIhOysB)ez--VndoPzucqE-Vl*Lhq-u()d()Q}untk49c>4xZK+;1
zjy(vLm)Ovgli8`vF*FNOX|>uY<SFV3IQR~;yNUxkhS_3e$CF8tc{p(65GgbvrN~m1
zHg*ppyzDV6MvFn}9f?+=i|B4Fy^Gvw&iM(X<+^mLQHDQoIj^Lgm>V-@*#z^oFac3h
zjYbyVYAclc!tLB37MuOUcFHB0qJW!Y?3$G7Pq&Ia6z3`33g}Ki53y$5#WcOH82%zI
Vgb<8bcjHA5MbD8s-kPJggI_UQwJ`ty

delta 785
zcmZp8z|ru4V}mOTmyjR>!(j%6?*>AX{aIuUAzTI^SCEN8&Dqz*(8z)T2H1=lxELG-
zz_K7+Ajagma9tonfVwmSe8PP75c>YR0Cmk3gzEw+oBSGG*X7{IV3<81nm?3*k%55;
zt_#GNY{@DMbufs#Ie~TG5=NoP@~hO4L?`>NLh(i@gPNPCkE^FY-1L8C4D1YIT&PCR
zMb{<b7~~%84cEl*uMy~=<6u97gADAT*XX)bJ^ezAjgWM;Ft9NEWkt2iay7CyCMTeB
z+u>XVke}DBhIt3X6%1uia&>X^Lw49!21$k+`Y2Xx{<B)?9iz~6`B{v}VKd!-79-3w
zu==wMsxCo};XX(X{s0V|Td09EeJ+MJNgvPP5IrCf0MW|w6Bs%R8BrWD{WXR*33q1~
zBwY+Fzk%AOpa$x6%h`;`;WIq}jo*&OUkBtPC)~3PQa=7cuE7Y4SeO_Y8MdRkZu_6v
QjAHSOhTDaIGrlze0AQuFHvj+t

diff --git a/src/lisp/loop.lisp b/src/lisp/loop.lisp
index cb2e758..e2e3eb0 100644
--- a/src/lisp/loop.lisp
+++ b/src/lisp/loop.lisp
@@ -11,7 +11,7 @@
       (RETURN I)
   )))
   (FORLOOP (LAMBDA (I M)
-    (FOR I 1 1 (< I M) (PRIN I))
+    (FOR I I 1 (< I M) (PRIN I))
   ))
 )