Return a kvp_value instead of a kvp_frame (type-checking is your friend)

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7092 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2002-07-06 22:47:14 +00:00
parent 1aa8299725
commit 783e9926b9

View File

@ -55,7 +55,8 @@ gnc_scm_to_kvp_value_ptr(SCM val)
else if(gw_wcp_p(val) &&
gw_wcp_is_of_type_p(gh_eval_str("<gnc:kvp-frame*>"), val))
{
return gw_wcp_get_ptr(val);
kvp_frame *frame = gw_wcp_get_ptr(val);
return kvp_value_new_frame (frame);
}
/* FIXME: add binary handler here when it's figured out */
/* FIXME: add list handler here */