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:
parent
99ec582c74
commit
f8b8b8a5d1
|
@ -368,6 +368,12 @@
|
||||||
(lambda args
|
(lambda args
|
||||||
(not (apply proc 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)
|
(define (const . rest)
|
||||||
(lambda (. _)
|
(lambda (. _)
|
||||||
(car rest)))
|
(car rest)))
|
||||||
|
|
Loading…
Reference in New Issue