mes: Add ceil, floor, round, inexact->exact.
[mes.git] / mes / module / mes / scm.mes
index bc58b53c62bb35d1e820ee58c181d28fd042d210..740a358f6eef081738a23024d4d8b8cb456d6dab 100644 (file)
   (lambda args
     (not (apply proc args))))
 
+(define ceil identity)
+(define floor identity)
+(define round identity)
+(define inexact->exact identity)
+(define exact->inexact identity)
+
 (define (const . rest)
   (lambda (. _)
     (car rest)))