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

30 lines
545 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* builtin_lambda_value_prettyprint(
const struct value* super)
{
ENTER;
assert(super->kind == vk_builtin_lambda);
const struct builtin_lambda_value* this = &super->subclass.builtin_lambda;
struct stringtree* tree = new_stringtree();
stringtree_append_string(tree, this->name);
EXIT;
return tree;
}