mirror of https://github.com/GNOME/gimp.git
The gimp-proc-db-call symbol was not being marked as immutable.
2006-06-05 Kevin Cozens <kcozens@cvs.gnome.org> * tiny-fu/ts-wrapper.c (init_procedures): The gimp-proc-db-call symbol was not being marked as immutable. * scripts/script-fu-compat.init: Fixed the definitions for fmod and trunc. * scripts/spyrogimp.sct: Changed defaults for number of teeth to match the values used in Script-Fu. Made tiny-fu-spyrogimp-internal a private procedure.
This commit is contained in:
parent
7a94e33941
commit
0606bf8dda
|
@ -143,7 +143,6 @@
|
|||
(define pow expt)
|
||||
(define string-lessp string<?)
|
||||
(define symbol-bound? defined?)
|
||||
(define trunc truncate)
|
||||
|
||||
(define *pi*
|
||||
(* 4 (atan 1.0))
|
||||
|
@ -161,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)
|
||||
|
@ -220,3 +219,7 @@
|
|||
(apply random modulus)
|
||||
)
|
||||
)
|
||||
|
||||
(define (trunc n)
|
||||
(inexact->exact (truncate n))
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue