#pragma once

// A few helper macros

#include <gc.h>
#include <string.h>

#define heap(x) (__typeof(x)*)memcpy(GC_MALLOC(sizeof(x)), (__typeof(x)[1]){x}, sizeof(x))
#define stack(x) (__typeof(x)*)((__typeof(x)[1]){x})
#define tagged(obj_expr, type_name, tag_name) ({ __typeof(obj_expr) obj = obj_expr; \
                                                obj.$tag == $tag$##type_name##$##tag_name ? &obj.tag_name : NULL; })