Replace gh_lookup with gh_eval_str.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3629 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-02-09 22:01:41 +00:00
parent 0cb7f80a35
commit 19f65b1b00

View File

@ -143,7 +143,7 @@ static const char* gnc_scheme_remaining_var = "gnc:*command-line-remaining*";
static char** static char**
gnc_get_remaining_argv(int prelen, const char **prependargv) gnc_get_remaining_argv(int prelen, const char **prependargv)
{ {
SCM rem = gh_lookup(gnc_scheme_remaining_var); SCM rem = gh_eval_str (gnc_scheme_remaining_var);
return gnc_scheme_list_to_nulltermcharpp (prelen, prependargv, rem); return gnc_scheme_list_to_nulltermcharpp (prelen, prependargv, rem);
} }
@ -365,7 +365,7 @@ gnc_ui_show_main_window(void)
{ {
SCM run_danglers = gh_eval_str("gnc:hook-run-danglers"); SCM run_danglers = gh_eval_str("gnc:hook-run-danglers");
SCM hook = gh_eval_str("gnc:*main-window-opened-hook*"); SCM hook = gh_eval_str("gnc:*main-window-opened-hook*");
SCM window = gw_wcp_assimilate_ptr(app, gh_lookup("<gnc:UIWidget>")); SCM window = gw_wcp_assimilate_ptr(app, gh_eval_str("<gnc:UIWidget>"));
gh_call2(run_danglers, hook, window); gh_call2(run_danglers, hook, window);
} }
return 0; return 0;