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

[ludovic p]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     ludovic p <address@hidden>      03/10/27 05:49:37

Modified files:
        src/clone      : ccl_spell.c 
        src/include    : ccl.h 

Log message:
        Fixes for guile

Patches:
Index: stratagus/src/clone/ccl_spell.c
diff -u stratagus/src/clone/ccl_spell.c:1.21 
stratagus/src/clone/ccl_spell.c:1.22
--- stratagus/src/clone/ccl_spell.c:1.21        Sat Oct 25 14:58:42 2003
+++ stratagus/src/clone/ccl_spell.c     Mon Oct 27 05:49:36 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_spell.c,v 1.21 2003/10/25 18:58:42 n0body Exp $
+//     $Id: ccl_spell.c,v 1.22 2003/10/27 10:49:36 pludov Exp $
 //@{
 
 /*----------------------------------------------------------------------------
@@ -526,7 +526,7 @@
            sublist=gh_car(list);
            CclSpellAction(gh_car(sublist), act);
            sublist=gh_cdr(sublist);
-           while (!gh_null_p(gh_car(sublist))) {
+           while (!gh_null_p(sublist)) {
                act->Next = (SpellActionType*)malloc(sizeof(SpellActionType));
                act=act->Next;
                memset(act, 0, sizeof(SpellActionType));
Index: stratagus/src/include/ccl.h
diff -u stratagus/src/include/ccl.h:1.38 stratagus/src/include/ccl.h:1.39
--- stratagus/src/include/ccl.h:1.38    Sun Aug 17 11:57:07 2003
+++ stratagus/src/include/ccl.h Mon Oct 27 05:49:37 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl.h,v 1.38 2003/08/17 15:57:07 n0body Exp $
+//     $Id: ccl.h,v 1.39 2003/10/27 10:49:37 pludov Exp $
 
 #ifndef __CCL_H__
 #define __CCL_H__
@@ -51,7 +51,8 @@
 #  define setvar(sym, value, env) scm_define(sym,value)
 #  define vload(buf,cflag,rflag)  gh_load(buf)
 #  define errl(message, value)    { fputs(message, stdout); gh_display(value); 
putchar('\n'); }
-#  define lprin1f(var, file)
+// FIXME : support for guile lprin1CL needed
+#  define lprin1CL(var, file)
 #  define gh_new_procedureN(name, proc) gh_new_procedure(name, proc, 0, 0, 1)
 #  define aset1(array, pos, value)      gh_vector_set_x(array, pos, value)
 #  define repl_c_string(msg, a, b, c  ) gh_eval_str(msg)