X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Fmain%2Ftranspile.lisp;h=4a6a5a007423e14f1f7966fbfc430014f4f10582;hb=2c338ef0bdabd1e327bbf474221239c2eead88e4;hp=d29980ec419a1daec9f45db4e674effc80da0c12;hpb=daa3b99095a3219506e930c7dd684bfbab4cf107;p=clnl diff --git a/src/main/transpile.lisp b/src/main/transpile.lisp index d29980e..4a6a5a0 100644 --- a/src/main/transpile.lisp +++ b/src/main/transpile.lisp @@ -87,7 +87,10 @@ DESCRIPTION: (defprim :any? :reporter (lambda (agentset) `(> (length ,agentset) 0))) (defsimpleprim :ask :command clnl-nvm:ask) (defsimpleprim :crt :command clnl-nvm:create-turtles) +(defsimpleprim :die :command clnl-nvm:die) (defsimpleprim :fd :command clnl-nvm:forward) +(defsimpleprim :lt :command clnl-nvm:turn-left) (defsimpleprim :random-float :reporter clnl-nvm:random-float) +(defsimpleprim :rt :command clnl-nvm:turn-right) (defsimpleprim :show :command clnl-nvm:show) (defsimpleprim :turtles :reporter clnl-nvm:turtles)