[Stratagus-CVS] stratagus/src/clone ccl_spell.c

[Crestez Leonard]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Crestez Leonard <address@hidden>        03/09/27 16:27:29

Modified files:
        src/clone      : ccl_spell.c 

Log message:
        Sorry

Patches:
Index: stratagus/src/clone/ccl_spell.c
diff -u stratagus/src/clone/ccl_spell.c:1.7 stratagus/src/clone/ccl_spell.c:1.8
--- stratagus/src/clone/ccl_spell.c:1.7 Sat Sep 27 15:05:47 2003
+++ stratagus/src/clone/ccl_spell.c     Sat Sep 27 16:27:29 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_spell.c,v 1.7 2003/09/27 19:05:47 n0body Exp $
+//     $Id: ccl_spell.c,v 1.8 2003/09/27 20:27:29 n0body Exp $
 //@{
 
 /*----------------------------------------------------------------------------
@@ -98,10 +98,10 @@
 local void CclParseSpellAction(SCM list, SpellType* spell, SpellActionType 
*spellaction)
 {
     char* str;
-    
+    SCM        value = list;
+
     DebugCheck (spellaction == NULL);
 
-    SCM        value = list;
     value = gh_car(value);
 
     value=gh_car(list);