// $Id$
-//
+//
// SuperTux
-// Copyright (C) 2005 Matthias Braun <matze@braunis.de>
+// Copyright (C) 2006 Matthias Braun <matze@braunis.de>
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
-//
+//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-// 02111-1307, USA.
+// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#include <config.h>
-#include "list_iterator.h"
+#include "list_iterator.hpp"
#include <stdexcept>
namespace lisp
if(child->get_type() != lisp::Lisp::TYPE_CONS)
throw std::runtime_error("Expected CONS");
const lisp::Lisp* name = child->get_car();
- if(!name || name->get_type() != lisp::Lisp::TYPE_SYMBOL)
+ if(!name || (
+ name->get_type() != lisp::Lisp::TYPE_SYMBOL
+ && name->get_type() != lisp::Lisp::TYPE_STRING))
throw std::runtime_error("Expected symbol");
name->get(current_item);
current_lisp = child->get_cdr();