X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fparse.lisp;h=640f8c5868357389d330d8634e0ecb4be87e0c29;hp=11af5517e284a97db29cddf9aa6035aeadf2a402;hb=1dd12dd5293763a49a8f1d78d86f82aa5a4ed5fe;hpb=9d76751c8810ef1543690837291a22d059a9cf2d

diff --git a/src/main/parse.lisp b/src/main/parse.lisp
index 11af551..640f8c5 100644
--- a/src/main/parse.lisp
+++ b/src/main/parse.lisp
@@ -254,7 +254,7 @@ DESCRIPTION:
 (defprim :display ())
 (defprim :with (:agentset :reporter-block) :infix)
 (defprim :fd (:number))
-(defprim :hatch (:number :command-block))
+(defprim :hatch (:number (:command-block :optional)))
 ; (defprim :let (t t)) ; keeping this here, commented out, to note that it has special processing
 (defprim :if (:boolean :command-block))
 (defprim :if-else (:boolean :command-block :command-block))