[frontierkernel-commits] Frontier/Common/source langpython.c,1.2.4.18,1.2.4.19

[David B. <dav...@us...>]

Update of /cvsroot/frontierkernel/Frontier/Common/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv935

Modified Files:
      Tag: sidewinder-branch
	langpython.c 
Log Message:
lesson learned: call evaluatetree on your params

Index: langpython.c
===================================================================
RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langpython.c,v
retrieving revision 1.2.4.18
retrieving revision 1.2.4.19
diff -C2 -d -r1.2.4.18 -r1.2.4.19
*** langpython.c	28 Nov 2004 06:51:47 -0000	1.2.4.18
--- langpython.c	28 Nov 2004 08:38:42 -0000	1.2.4.19
***************
*** 1604,1610 ****
  	while (nomad != nil) {
          PyObject *arg;
!         convertfrontiervalue(&((**nomad).nodeval), &arg);
!         PyList_Append(argList, arg);
  		nomad = (**nomad).link;
      }
  	
--- 1604,1618 ----
  	while (nomad != nil) {
          PyObject *arg;
!         hdltreenode thisNode = nomad;
  		nomad = (**nomad).link;
+         (**thisNode).link = nil;
+         if ((**thisNode).nodetype == constop) {
+             convertfrontiervalue(&((**thisNode).nodeval), &arg);
+         } else {
+             tyvaluerecord tvr;
+             evaluatetree(thisNode, &tvr);
+             convertfrontiervalue(&tvr, &arg);
+         }
+         PyList_Append(argList, arg);
      }