nyje
/
medit
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed iterating over list

master
Yevgen Muntyan 2006-03-08 08:47:46 -06:00
parent d2372b5238
commit 6910a18a1c
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
moo/mooutils/mooscript/mooscript-node.c
View File

@ -251,7 +251,7 @@ ms_node_function_eval (MSNode *node_,
if (!ms_value_is_func (func))
{
char *str = ms_value_print (func);
char *str = ms_value_repr (func);
ms_value_unref (func);
ms_context_format_error (ctx, MS_ERROR_TYPE,
"object <%s> is not a function",
@ -639,23 +639,16 @@ ms_node_for_eval (MSNode *node,
return ms_context_format_error (ctx, MS_ERROR_TYPE,
"illegal loop variable");
if (!MS_IS_NODE_VAL_LIST (loop->list))
if (!MS_IS_NODE_VALUE (loop->list) ||
MS_VALUE_TYPE (MS_NODE_VALUE(loop->list)->value) != MS_VALUE_LIST)
return ms_context_format_error (ctx, MS_ERROR_TYPE,
"illegal loop list");
var = MS_NODE_VAR (loop->variable);
if (MS_IS_NODE_VAL_LIST (loop->list))
vallist = _ms_node_eval (loop->list, ctx);
else
vallist = ms_value_ref (MS_NODE_VALUE(loop->list)->value);
vallist = _ms_node_eval (loop->list, ctx);
if (!vallist)
return NULL;
g_return_val_if_fail (MS_VALUE_TYPE (vallist) == MS_VALUE_LIST, NULL);
if (MS_VALUE_TYPE (vallist) != MS_VALUE_LIST)
return ms_context_format_error (ctx, MS_ERROR_TYPE,
"illegal loop list");
var = MS_NODE_VAR (loop->variable);
for (i = 0; i < vallist->list.n_elms; ++i)
{