#include <stdlib.h>#include <stdio.h>#include <string.h>#include "lil/lil.h"#include "patchwerk/patchwerk.h"#include "core.h"#include "sklil.h" static lil_value_t regset(lil_t lil, size_t argc, lil_value_t *argv){    sk_core *core;    int pos;    int rc;     core = lil_get_data(lil);     SKLIL_ARITY_CHECK(lil, "regset", argc, 2);     /* ignore first argument */     pos = lil_to_integer(argv[1]);     rc = sk_core_regset(core, pos);     SKLIL_ERROR_CHECK(lil, rc, "regset: regset failed.");     return NULL;} static lil_value_t regget(lil_t lil, size_t argc, lil_value_t *argv){    sk_core *core;    int pos;    int rc;     core = lil_get_data(lil);     SKLIL_ARITY_CHECK(lil, "regget", argc, 1);     pos = lil_to_integer(argv[0]);     rc = sk_core_regget(core, pos);     SKLIL_ERROR_CHECK(lil, rc, "regget: regget failed.");     return NULL;} void sklil_load_reg(lil_t lil){    lil_register(lil, "regset", regset);    lil_register(lil, "regget", regget);}