- added check for 'region' symbol

SVN-Revision: 4909

diff --git a/src/lisp/lisp.hpp b/src/lisp/lisp.hpp
index 38d6605..c65b2ea 100644 (file)
--- a/src/lisp/lisp.hpp
+++ b/src/lisp/lisp.hpp
@@ -57,6 +57,12 @@ public:
     return true;
   }
 
+  std::string get_symbol() const
+  {
+    assert(type == TYPE_SYMBOL);
+    return v.string;
+  }
+
   std::string get_string() const
   {
     assert(type == TYPE_STRING);

diff --git a/src/tile.cpp b/src/tile.cpp
index 3157c51..c45f79c 100644 (file)
--- a/src/tile.cpp
+++ b/src/tile.cpp
@@ -116,7 +116,8 @@ Tile::parse_images(const lisp::Lisp& images_lisp)
       cur->get(file);
       imagespecs.push_back(ImageSpec(file, Rect(0, 0, 0, 0)));
     } else if(cur->get_type() == lisp::Lisp::TYPE_CONS &&
-        cur->get_car()->get_type() == lisp::Lisp::TYPE_SYMBOL) {
+                                 cur->get_car()->get_type() == lisp::Lisp::TYPE_SYMBOL &&
+              cur->get_car()->get_symbol() == "region") {
       const lisp::Lisp* ptr = cur->get_cdr();
 
       std::string file;