mirror of
https://gitlab.gnome.org/GNOME/gimp
synced 2024-10-22 20:41:43 +00:00
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:
parent
68b4585959
commit
16251836ac
|
@ -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>
|
||||
|
||||
* app/tools/gimpvectortool.c (gimp_vector_tool_register):
|
||||
|
|
|
@ -197,7 +197,7 @@
|
|||
|
||||
(define (string-trim-left str)
|
||||
(let (
|
||||
(strlen string-length str)
|
||||
(strlen (string-length str))
|
||||
(i 0)
|
||||
)
|
||||
|
||||
|
@ -359,3 +359,12 @@
|
|||
(define (trunc n)
|
||||
(inexact->exact (truncate n))
|
||||
)
|
||||
|
||||
(define verbose
|
||||
(lambda n
|
||||
(if (or (null? n) (not (number? (car n))))
|
||||
0
|
||||
(car n)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
|
Loading…
Reference in a new issue