Author: grumbel
Date: 2007-08-02 03:18:50 +0200 (Thu, 02 Aug 2007)
New Revision: 2766
Modified:
branches/pingus_sdl/src/sexpr_file_reader.cpp
Log:
- make SExprFileReader::read_bool() work with 0/1 instead of just #f/#t
Modified: branches/pingus_sdl/src/sexpr_file_reader.cpp
===================================================================
--- branches/pingus_sdl/src/sexpr_file_reader.cpp 2007-07-20 05:39:41 UTC
(rev 2765)
+++ branches/pingus_sdl/src/sexpr_file_reader.cpp 2007-08-02 01:18:50 UTC
(rev 2766)
@@ -102,6 +102,11 @@
v = item->get_bool();
return true;
}
+ else if (item && item->get_type() == lisp::Lisp::TYPE_INT)
+ {
+ v = item->get_int();
+ return true;
+ }
return false;
}
_______________________________________________
pingus-cvs mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/pingus-cvs
