Fixed the definition of fmod for real this time. Previous commit fixed the

2006-06-01  Kevin Cozens  <kcozens@cvs.gnome.org>

	* scripts/script-fu-compat.init: Fixed the definition of fmod for
	real this time. Previous commit fixed the definition of truncate.
This commit is contained in:
Kevin Cozens 2006-06-02 02:34:44 +00:00 committed by Kevin Cozens
parent ddea9b01e8
commit 5c5ddcf9ed
1 changed files with 1 additions and 1 deletions

View File

@ -160,7 +160,7 @@
)
(define (fmod a b)
(modulo (inexact->exact (truncate a)) (inexact->exact (truncate b)))
(- a (* (truncate (/ a b)) b))
)
(define (fread arg1 file)