[Stratagus-CVS] stratagus/src/missile ccl_missile.c

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/11/29 18:31:00

Modified files:
        src/missile    : ccl_missile.c 

Log message:
        Fixed warning

Patches:
Index: stratagus/src/missile/ccl_missile.c
diff -u stratagus/src/missile/ccl_missile.c:1.41 
stratagus/src/missile/ccl_missile.c:1.42
--- stratagus/src/missile/ccl_missile.c:1.41    Sat Nov 29 18:09:10 2003
+++ stratagus/src/missile/ccl_missile.c Sat Nov 29 18:30:59 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_missile.c,v 1.41 2003/11/29 23:09:10 jsalmon3 Exp $
+//     $Id: ccl_missile.c,v 1.42 2003/11/29 23:30:59 jsalmon3 Exp $
 
 //@{
 
@@ -115,9 +115,12 @@
            free(mtype->ImpactSound.Name);
            mtype->ImpactSound.Name = gh_scm2newstr(gh_car(list), NULL);
        } else if (gh_eq_p(value, gh_symbol2scm("class"))) {
+           const char* name;
+
            value = gh_car(list);
+           name = get_c_string(value);
            for (i = 0; MissileClassNames[i]; ++i) {
-               if (gh_eq_p(value, gh_symbol2scm(MissileClassNames[i]))) {
+               if (!strcmp(name, MissileClassNames[i])) {
                    mtype->Class = i;
                    break;
                }