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

8
src/op.cc
View file

@ -48,9 +48,8 @@ void intrusive_ptr_release(const expr_t::op_t * op)
op->release();
}
namespace {
value_t split_cons_expr(expr_t::ptr_op_t op)
{
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()));
@ -71,8 +70,9 @@ namespace {
} 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