From 16251836ac53481575fe75fb93754aaaa9ffa0a9 Mon Sep 17 00:00:00 2001 From: Kevin Cozens Date: Sat, 17 Mar 2007 16:32:17 +0000 Subject: [PATCH] Fixed syntax error in string-trim-left function (spotted by Saul Goode). 2007-03-17 Kevin Cozens * 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 --- ChangeLog | 6 ++++++ plug-ins/script-fu/scripts/script-fu-compat.init | 11 ++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 05bff6c81e..54621889fb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-03-17 Kevin Cozens + + * 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 * app/tools/gimpvectortool.c (gimp_vector_tool_register): diff --git a/plug-ins/script-fu/scripts/script-fu-compat.init b/plug-ins/script-fu/scripts/script-fu-compat.init index ff4441fb9e..9b69f8aa08 100644 --- a/plug-ins/script-fu/scripts/script-fu-compat.init +++ b/plug-ins/script-fu/scripts/script-fu-compat.init @@ -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) + ) + ) +)