Commit 36c8bf26 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens
Browse files

Fix revealed bug in TinyScheme initialization which results in a seg

2006-11-26  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/tinyscheme/scheme.c (is_integer): Fix revealed
	bug in TinyScheme initialization which results in a seg fault.
	Removing fix for now.
parent 1dead8df
2006-11-26 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/tinyscheme/scheme.c (is_integer): Fix revealed
bug in TinyScheme initialization which results in a seg fault.
Removing fix for now.
2006-11-26 Kevin Cozens <kcozens@cvs.gnome.org>
 
* plug-ins/script-fu/tinyscheme/scheme.c (is_integer): Check cell
......
......@@ -182,7 +182,7 @@ INTERFACE static pointer vector_elem(pointer vec, int ielem);
INTERFACE static pointer set_vector_elem(pointer vec, int ielem, pointer a);
INTERFACE INLINE int is_number(pointer p) { return (type(p)==T_NUMBER); }
INTERFACE INLINE int is_integer(pointer p) {
return (type(p)==T_NUMBER && (p)->_object._number.is_fixnum);
return ((p)->_object._number.is_fixnum);
}
INTERFACE INLINE int is_real(pointer p) {
return (!(p)->_object._number.is_fixnum);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment