lisp-take-1/value/environment/prettyprint.c

30 lines
547 B
C

#include <assert.h>
#include <debug.h>
#include <stringtree/new.h>
#include <stringtree/append.h>
#include "../struct.h"
#include "struct.h"
#include "prettyprint.h"
struct stringtree* environment_value_prettyprint(
const struct value* super)
{
ENTER;
assert(super->kind == vk_envrionment);
// const struct environment_value* this = &super->subclass.environment;
struct stringtree* tree = new_stringtree();
stringtree_append_string_const(tree, "(environment)");
EXIT;
return tree;
}