sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Made split_cons_expr a global function

Browse source
This commit is contained in:
John Wiegley 2012-03-13 10:33:51 -05:00
parent c8dd3d28e3
commit e65fc729bc
2 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
src/op.cc
View file

@ -48,31 +48,31 @@ void intrusive_ptr_release(const expr_t::op_t * op)
op->release();
}
namespace {
value_t split_cons_expr(expr_t::ptr_op_t op)
{
if (op->kind == expr_t::op_t::O_CONS) {
value_t seq;
seq.push_back(expr_value(op->left()));
value_t split_cons_expr(expr_t::ptr_op_t op)
{
if (op->kind == expr_t::op_t::O_CONS) {
value_t seq;
seq.push_back(expr_value(op->left()));
expr_t::ptr_op_t next = op->right();
while (next) {
expr_t::ptr_op_t value_op;
if (next->kind == expr_t::op_t::O_CONS) {
value_op = next->left();
next = next->has_right() ? next->right() : NULL;
} else {
value_op = next;
next = NULL;
}
seq.push_back(expr_value(value_op));
expr_t::ptr_op_t next = op->right();
while (next) {
expr_t::ptr_op_t value_op;
if (next->kind == expr_t::op_t::O_CONS) {
value_op = next->left();
next = next->has_right() ? next->right() : NULL;
} else {
value_op = next;
next = NULL;
}
return seq;
} else {
return expr_value(op);
seq.push_back(expr_value(value_op));
}
return seq;
} else {
return expr_value(op);
}
}
namespace {
inline void check_type_context(scope_t& scope, value_t& result)
{
if (scope.type_required() &&

2
src/op.h
View file

@ -371,6 +371,8 @@ expr_t::op_t::wrap_functor(expr_t::func_t fobj) {
string op_context(const expr_t::ptr_op_t op,
const expr_t::ptr_op_t locus = NULL);
value_t split_cons_expr(expr_t::ptr_op_t op);
} // namespace ledger
#endif // _OP_H