Prims - Implement round

[clnl] / src / main / transpile.lisp

diff --git a/src/main/transpile.lisp b/src/main/transpile.lisp
index 3feedc2df85292309b56f95bc8d997647fbce667..c2a2087e9460699fe65e4b73f0b13ca170452df7 100644 (file)
--- 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)