/* Step 3: does -output-complete-obj carry the project's C stubs through? */
#include <caml/callback.h>
#include <caml/mlvalues.h>
#include <stdio.h>

int main(int argc, char **argv) {
  const value *f;
  (void)argc;
  caml_startup(argv);
  f = caml_named_value("spike_stubs");
  if (!f) { fprintf(stderr, "spike: stubs not registered\n"); return 1; }
  printf("stubs reached from embedded runtime: %s\n", String_val(caml_callback(*f, Val_unit)));
  return 0;
}