コード例 #1
0
ファイル: scm-safe-call.c プロジェクト: ajinkya93/netbsd-src 
static SCM
scscm_call_4_body (void *argsp)
{
  SCM *args = argsp;

  return scm_call_4 (args[0], args[1], args[2], args[3], args[4]);
}
コード例 #2
0
ファイル: watch.c プロジェクト: guildhall/guile-avahi 
static void
watch_update (AvahiWatch *watch, AvahiWatchEvent events)
{
  scm_call_4 (watch->guile_poll->update_watch_x,
	      watch->watch_smob, scm_from_int (watch->fd),
	      scm_from_avahi_watch_events (events),
	      watch->stuff);

  watch->events = events;
}