#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 hold(lil_t lil, size_t argc, lil_value_t *argv){    sk_core *core;    int rc;     core = lil_get_data(lil);     rc = sk_core_hold(core);     SKLIL_ERROR_CHECK(lil, rc, "hold didn't work out.");     return NULL;} static lil_value_t unhold(lil_t lil, size_t argc, lil_value_t *argv){    sk_core *core;    int rc;     core = lil_get_data(lil);     rc = sk_core_hold(core);     SKLIL_ERROR_CHECK(lil, rc, "unhold didn't work out.");     return NULL;} static lil_value_t lil_dup(lil_t lil, size_t argc, lil_value_t *argv){    sk_core *core;    int rc;     core = lil_get_data(lil);     rc = sk_core_dup(core);     SKLIL_ERROR_CHECK(lil, rc, "dup didn't work out.");     return NULL;} static lil_value_t drop(lil_t lil, size_t argc, lil_value_t *argv){    sk_core *core;    int rc;     core = lil_get_data(lil);     rc = sk_core_drop(core);     SKLIL_ERROR_CHECK(lil, rc, "drop didn't work out.");     return NULL;} static lil_value_t swap(lil_t lil, size_t argc, lil_value_t *argv){    sk_core *core;    int rc;     core = lil_get_data(lil);     rc = sk_core_swap(core);     SKLIL_ERROR_CHECK(lil, rc, "swap didn't work out.");     return NULL;} void sklil_load_buffer(lil_t lil){    lil_register(lil, "hold", hold);    lil_register(lil, "unhold", unhold);    lil_register(lil, "dup", lil_dup);    lil_register(lil, "drop", drop);    lil_register(lil, "swap", swap);}