[Pingus-CVS] r2766 - branches/pingus_sdl/src

[grumbel at BerliOS]

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;
   }