From 667d6eac9b57947163078c2ad8cecbc6063fbc23 Mon Sep 17 00:00:00 2001 From: Kevin Cozens Date: Thu, 30 Aug 2007 00:33:50 +0000 Subject: [PATCH] Applied the change suggested in SourceForge bug #1593861 that fixes the 2007-08-29 Kevin Cozens * plug-ins/script-fu/tinyscheme/scheme.c: Applied the change suggested in SourceForge bug #1593861 that fixes the case where integer? thinks non-numbers are sometimes integers. svn path=/trunk/; revision=23402 --- ChangeLog | 6 ++++++ plug-ins/script-fu/tinyscheme/scheme.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 08e8703da7..5802bf983b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-08-29 Kevin Cozens + + * plug-ins/script-fu/tinyscheme/scheme.c: Applied change suggested + in SourceForge bug #1593861 which stops integer? from thinking that + non-numbers are integers. + 2007-08-30 Simon Budig * plug-ins/script-fu/tinyscheme/scheme.[ch] diff --git a/plug-ins/script-fu/tinyscheme/scheme.c b/plug-ins/script-fu/tinyscheme/scheme.c index 6150a6e2bc..d9e8cf88e0 100644 --- a/plug-ins/script-fu/tinyscheme/scheme.c +++ b/plug-ins/script-fu/tinyscheme/scheme.c @@ -3537,7 +3537,7 @@ static pointer opexe_3(scheme *sc, enum scheme_opcodes op) { case OP_STRINGP: /* string? */ s_retbool(is_string(car(sc->args))); case OP_INTEGERP: /* integer? */ - s_retbool(is_integer(car(sc->args))); + s_retbool(is_number(car(sc->args)) && is_integer(car(sc->args))); case OP_REALP: /* real? */ s_retbool(is_number(car(sc->args))); /* All numbers are real */ case OP_CHARP: /* char? */