Fixed the definition of fmod.

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

	* scripts/script-fu-compat.init: Fixed the definition of fmod.

plug-ins/script-fu/scripts/script-fu-compat.init

@@ -143,7 +143,6 @@
 (define pow expt)
 (define string-lessp string<?)
 (define symbol-bound? defined?)
-(define trunc truncate)
 
 (define *pi*
   (* 4 (atan 1.0))
@@ -220,3 +219,7 @@
     (apply random modulus)
   )
 )
+
+(define (trunc n)
+  (inexact->exact (truncate n))
+)