lisp-take-1/value/prettyprint.c

24 lines
396 B
C

#include <assert.h>
#include <debug.h>
#include "inheritance.h"
#include "struct.h"
#include "prettyprint.h"
struct stringtree* value_prettyprint(
struct value* this)
{
ENTER;
assert(this);
assert(this->inheritance);
assert(this->inheritance->prettyprint);
struct stringtree* tree = (this->inheritance->prettyprint)(this);
EXIT;
return tree;
}