示例#1
0
文件: eval.c 项目: Card1nal/guile
SCM
scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args)
{
  return scm_apply (proc, scm_cons2 (arg1, arg2, args), SCM_EOL);
}
示例#2
0
文件: eval.c 项目: Card1nal/guile
SCM
scm_apply_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM args)
{
  return scm_apply (proc, scm_cons (arg1, scm_cons2 (arg2, arg3, args)),
		    SCM_EOL);
}
示例#3
0
文件: eval.c 项目: TaylanUB/guile
SCM
scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args)
{
  return scm_apply_0 (proc, scm_cons2 (arg1, arg2, args));
}