mes: Add ceil, floor, round, inexact->exact.

* mes/module/mes/scm.mes (ceil, floor, round, inexact->exact,
exact->inexact): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-21 12:07:06 +02:00
parent bb6cdb6b54
commit 38d014decd
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 6 additions and 0 deletions

View File

@ -368,6 +368,12 @@
(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)))