X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Fmain%2Fparse.lisp;h=914e0dcbc40770a7e22cd8a3594cdba1458e6e54;hb=393d2cd66721b93bed149613ceb7ee4fdac408c2;hp=622723748d606f2d9bcb8565fc1c6c1c72efa543;hpb=bc4ccb4263ccbcc915d913c7111fdd40e2e998fe;p=clnl

diff --git a/src/main/parse.lisp b/src/main/parse.lisp
index 6227237..914e0dc 100644
--- a/src/main/parse.lisp
+++ b/src/main/parse.lisp
@@ -246,15 +246,16 @@ DESCRIPTION:
 (defprim :<= (:number :number) :infix)
 (defprim :any? (:agentset))
 (defprim :ask (:agentset :command-block))
+(defprim :ca ())
 (defprim :clear-all ())
 (defprim :crt (:number (:command-block :optional)))
 (defprim :color ())
 (defprim :count (:agentset))
 (defprim :die ())
 (defprim :display ())
-(defprim :with (:reporter-block))
+(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))
@@ -271,7 +272,7 @@ DESCRIPTION:
 (defprim :random-float (:number))
 (defprim :random-xcor ())
 (defprim :random-ycor ())
-(defprim :round ())
+(defprim :round (t))
 (defprim :reset-ticks ())
 (defprim :lt (:number))
 (defprim :rt (:number))