X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Ftranspile.lisp;h=c2a2087e9460699fe65e4b73f0b13ca170452df7;hp=3feedc2df85292309b56f95bc8d997647fbce667;hb=008caa39f337b16ba74df818ee374acb3540b09d;hpb=9eef8ecae4fad1e01413807ebc80ae45b5990706

diff --git a/src/main/transpile.lisp b/src/main/transpile.lisp
index 3feedc2..c2a2087 100644
--- a/src/main/transpile.lisp
+++ b/src/main/transpile.lisp
@@ -169,6 +169,7 @@ DESCRIPTION:
 (defsimpleprim :random-float :reporter clnl-nvm:random-float)
 (defsimpleprim :random-xcor :reporter clnl-nvm:random-xcor)
 (defsimpleprim :random-ycor :reporter clnl-nvm:random-ycor)
+(defprim :round :reporter (lambda (n) `(ffloor (+ ,n 0.5d0))))
 (defsimpleprim :rt :command clnl-nvm:turn-right)
 (defsimpleprim :set :command cl:setf)
 (defsimpleprim :set-default-shape :command clnl-nvm:set-default-shape)