#include <libguile.h>
#include "functions.h"
#include "types.h"
// remember to use scm_assert_smob_type(tag, object) to verify that arguments are of the
// right type.

SCM define_package_wrapper(SCM name, SCM version, SCM require) {
	SCM smob;
	struct builder_package* package;
	package = (builder_package*) scm_gc_malloc(sizeof (struct builder_package), "package");
	package->name = name;
	smob = scm_new_smob(builder_package_tag, (scm_t_bits) package);
	return smob;
}


extern "C" {
void init_builder() {
	init_builder_package_type();
	scm_c_define_gsubr("C/define-package", 3, 0, 0, (void*) define_package_wrapper);
}

}