gh_lookup not seeing gh_new_procedure

[Dale P. Smith]

This is probably user error, but recent changes to guile cause this to
print "val is undefined".  I probably need to use gh_module_lookup, but
with what arguments?

Thanks!
  -Dale

#include <guile/gh.h>

SCM
foo()
{
  printf("inside foo()\n");
  return SCM_UNDEFINED;
}

int
main()
{
  SCM val;

  scm_init_guile();

  gh_new_procedure0_0("foo", foo);
  val = gh_lookup("foo");
  if (val == SCM_UNDEFINED)
    printf("val is undefined\n");
  else
    gh_call0(val);
  return 0;
}

-- 
Dale P. Smith
Altus Technologies Corporation
address@hidden
440-746-9000 x309