Fixed syntax error in string-trim-left function (spotted by Saul Goode).

2007-03-17  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/scripts/script-fu-compat.init: Fixed syntax
	error in string-trim-left function (spotted by Saul Goode). Added
	compatability routine for 'verbose'.

svn path=/trunk/; revision=22136
This commit is contained in:
Kevin Cozens 2007-03-17 16:32:17 +00:00 committed by Kevin Cozens
parent 68b4585959
commit 16251836ac
2 changed files with 16 additions and 1 deletions

View File

@ -1,3 +1,9 @@
2007-03-17 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/scripts/script-fu-compat.init: Fixed syntax
error in string-trim-left function (spotted by Saul Goode). Added
compatability routine for 'verbose'.
2007-03-17 Michael Natterer <mitch@gimp.org> 2007-03-17 Michael Natterer <mitch@gimp.org>
* app/tools/gimpvectortool.c (gimp_vector_tool_register): * app/tools/gimpvectortool.c (gimp_vector_tool_register):

View File

@ -197,7 +197,7 @@
(define (string-trim-left str) (define (string-trim-left str)
(let ( (let (
(strlen string-length str) (strlen (string-length str))
(i 0) (i 0)
) )
@ -359,3 +359,12 @@
(define (trunc n) (define (trunc n)
(inexact->exact (truncate n)) (inexact->exact (truncate n))
) )
(define verbose
(lambda n
(if (or (null? n) (not (number? (car n))))
0
(car n)
)
)
)