gri3-wm/src/guile.c

#include "all.h"

#include <libguile.h>
#include "guile.h"

bool guile_hook(char * name, SCM params) {
  SCM hook = scm_variable_ref(scm_c_lookup(name));
  if (scm_is_true(hook)) {
    return scm_to_bool(scm_call_1(hook, params));
  }
  return true;
}