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

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/10/17 15:01:11

Modified files:
        src/clone      : construct.c 

Log message:
        Don't require constructions to be in construction-wc-names

Patches:
Index: stratagus/src/clone/construct.c
diff -u stratagus/src/clone/construct.c:1.35 
stratagus/src/clone/construct.c:1.36
--- stratagus/src/clone/construct.c:1.35        Thu Oct  9 19:04:02 2003
+++ stratagus/src/clone/construct.c     Fri Oct 17 15:01:11 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: construct.c,v 1.35 2003/10/09 23:04:02 jsalmon3 Exp $
+//     $Id: construct.c,v 1.36 2003/10/17 19:01:11 jsalmon3 Exp $
 
 //@{
 
@@ -147,7 +147,7 @@
     ConstructionFrame* cframe;
 
     CLprintf(file, "\n;;; -----------------------------------------\n");
-    CLprintf(file, ";;; MODULE: constructions $Id: construct.c,v 1.35 
2003/10/09 23:04:02 jsalmon3 Exp $\n\n");
+    CLprintf(file, ";;; MODULE: constructions $Id: construct.c,v 1.36 
2003/10/17 19:01:11 jsalmon3 Exp $\n\n");
 
     // FIXME: needed?
     
@@ -359,17 +359,6 @@
 
     str = gh_scm2newstr(gh_car(list), NULL);
     list = gh_cdr(list);
-
-    for (i = 0; ConstructionWcNames[i]; ++i) {
-       if (!strcmp(ConstructionWcNames[i], str)) {
-           break;
-       }
-    }
-    if (!ConstructionWcNames[i]) {
-       DebugLevel0Fn("Construction not found.\n");
-       free(str);
-       return SCM_UNSPECIFIED;
-    }
 
     if ((cop = Constructions) == NULL) {
        Constructions = malloc(2 * sizeof(Construction*));