[gimp/gimp-2-6] Bug 557061 – Alpha to Logo

[Sven Neumann <neo src gnome org>]

commit cd98fd04820293e528f004f7ff703f91280158bd
Author: Sven Neumann <sven gimp org>
Date:   Thu May 21 18:49:51 2009 +0200

    Bug 557061 â?? Alpha to Logo
    
    Applied patch from Eric Lamarque fixing an error in the Cool Metal Logo
    script.
    (cherry picked from commit 35ac02e66d177db4094f655ba26bf40a0f01bf43)
---
 plug-ins/script-fu/scripts/coolmetal-logo.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/plug-ins/script-fu/scripts/coolmetal-logo.scm b/plug-ins/script-fu/scripts/coolmetal-logo.scm
index 564b463..19a90a3 100644
--- a/plug-ins/script-fu/scripts/coolmetal-logo.scm
+++ b/plug-ins/script-fu/scripts/coolmetal-logo.scm
@@ -119,7 +119,7 @@
   (begin
     (gimp-image-undo-group-start img)
 
-    (if (car (gimp-layer-is-floating-sel logo-layer))
+    (if (= (car (gimp-layer-is-floating-sel logo-layer)) TRUE)
         (begin
             (gimp-floating-sel-to-layer logo-layer)
             (set! logo-layer (car (gimp-image-get-active-layer img)))