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

28 lines
443 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* null_value_prettyprint(
const struct value* super)
{
ENTER;
assert(super->kind == vk_null);
struct stringtree* tree = new_stringtree();
stringtree_append_string_const(tree, "null");
EXIT;
return tree;
}