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

[ludovic pollet]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     ludovic pollet <address@hidden> 03/11/14 11:41:47

Modified files:
        src/clone      : ccl_player.c 

Log message:
        fix typo

Patches:
Index: stratagus/src/clone/ccl_player.c
diff -u stratagus/src/clone/ccl_player.c:1.44 
stratagus/src/clone/ccl_player.c:1.45
--- stratagus/src/clone/ccl_player.c:1.44       Wed Nov 12 15:40:23 2003
+++ stratagus/src/clone/ccl_player.c    Fri Nov 14 11:41:47 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_player.c,v 1.44 2003/11/12 20:40:23 jsalmon3 Exp $
+//     $Id: ccl_player.c,v 1.45 2003/11/14 16:41:47 pludov Exp $
 
 //@{
 
@@ -265,7 +265,9 @@
                sublist = gh_cdr(sublist);
                ++i;
            }
+       } else if (gh_eq_p(value, gh_symbol2scm("total-units"))) {
            player->TotalUnits = gh_scm2int(gh_car(list));
+           list = gh_cdr(list);
        } else if (gh_eq_p(value, gh_symbol2scm("timers"))) {
            sublist = gh_car(list);
            list = gh_cdr(list);