dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Applied the change suggested in SourceForge bug #1593861 that fixes the 

2007-08-29  Kevin Cozens  <kcozens@cvs.gnome.org>

	* 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
This commit is contained in:
Kevin Cozens 2007-08-30 00:33:50 +00:00 committed by Kevin Cozens
parent fff229e32a
commit 667d6eac9b
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2007-08-29 Kevin Cozens <kcozens@cvs.gnome.org>
* 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 <simon@gimp.org>
* plug-ins/script-fu/tinyscheme/scheme.[ch]

2
plug-ins/script-fu/tinyscheme/scheme.c
View File

@ -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? */