Fixed the definition of fmod.
2006-06-01 Kevin Cozens <kcozens@cvs.gnome.org> * scripts/script-fu-compat.init: Fixed the definition of fmod.
This commit is contained in:

committed by
Kevin Cozens

parent
3f7b118225
commit
ddea9b01e8
@ -143,7 +143,6 @@
|
|||||||
(define pow expt)
|
(define pow expt)
|
||||||
(define string-lessp string<?)
|
(define string-lessp string<?)
|
||||||
(define symbol-bound? defined?)
|
(define symbol-bound? defined?)
|
||||||
(define trunc truncate)
|
|
||||||
|
|
||||||
(define *pi*
|
(define *pi*
|
||||||
(* 4 (atan 1.0))
|
(* 4 (atan 1.0))
|
||||||
@ -220,3 +219,7 @@
|
|||||||
(apply random modulus)
|
(apply random modulus)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
(define (trunc n)
|
||||||
|
(inexact->exact (truncate n))
|
||||||
|
)
|
||||||
|
Reference in New Issue
Block a user