lisp-take-1/value/foreach_accessible_subvalue.c

24 lines
465 B
C

#include <assert.h>
#include <debug.h>
#include "inheritance.h"
#include "struct.h"
#include "foreach_accessible_subvalue.h"
void value_foreach_accessible_subvalue(
const struct value* this,
void (*callback)(struct value* subvalue))
{
ENTER;
assert(this);
assert(this->inheritance);
assert(this->inheritance->foreach_accessible_subvalue);
(this->inheritance->foreach_accessible_subvalue)(this, callback);
EXIT;
}