X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=docs%2FCLNL-as-a-lisp-library.md;h=0bdbf34efdeb04c1817d5105192520bfc1320dbc;hb=5605f2c9b44c10a151b8bb08967c0bcd01af58c2;hp=d4d6dab4a295c3017a95de2d041e2049c2d454f7;hpb=34a80fe5cce7ae6b81c8017b754a7649cd1172a8;p=clnl

diff --git a/docs/CLNL-as-a-lisp-library.md b/docs/CLNL-as-a-lisp-library.md
index d4d6dab..0bdbf34 100644
--- a/docs/CLNL-as-a-lisp-library.md
+++ b/docs/CLNL-as-a-lisp-library.md
@@ -106,7 +106,9 @@ The following is a hand edited modification of wolf sheep to remove unnecessary
  (when grass?
   (clnl-nvm:ask (clnl-nvm:patches)
    (lambda ()
-    (setf (clnl-nvm:agent-value :pcolor) (clnl-nvm:one-of (list (clnl-nvm:lookup-color :green) (clnl-nvm:lookup-color :brown))))
+    (setf
+     (clnl-nvm:agent-value :pcolor)
+     (clnl-nvm:one-of (list (clnl-nvm:lookup-color :green) (clnl-nvm:lookup-color :brown))))
     (if (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))
      (setf (clnl-nvm:agent-value :countdown) grass-regrowth-time)
      (setf (clnl-nvm:agent-value :countdown) (clnl-nvm:random grass-regrowth-time))))))
@@ -128,7 +130,12 @@ The following is a hand edited modification of wolf sheep to remove unnecessary
    (setf (clnl-nvm:agent-value :energy) (clnl-nvm:random (* 2.0d0 wolf-gain-from-food)))
    (clnl-nvm:setxy (clnl-nvm:random-xcor) (clnl-nvm:random-ycor))))
  (display-labels)
- (setf grass (clnl-nvm:count (clnl-nvm:with (clnl-nvm:patches) (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
+ (setf
+  grass
+  (clnl-nvm:count
+   (clnl-nvm:with
+    (clnl-nvm:patches)
+    (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
  (clnl-nvm:reset-ticks)
  :undefined)
 
@@ -149,7 +156,12 @@ The following is a hand edited modification of wolf sheep to remove unnecessary
     (death)
     (reproduce-wolves)))
   (when grass?  (clnl-nvm:ask (clnl-nvm:patches) (lambda () (grow-grass))))
-  (setf grass (clnl-nvm:count (clnl-nvm:with (clnl-nvm:patches) (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
+  (setf
+   grass
+   (clnl-nvm:count
+    (clnl-nvm:with
+     (clnl-nvm:patches)
+     (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
   (clnl-nvm:tick) (display-labels)
   :undefined))