26 lines
398 B
C
26 lines
398 B
C
|
|
#include <assert.h>
|
|
|
|
#include <debug.h>
|
|
|
|
#include <string/free.h>
|
|
|
|
#include "../struct.h"
|
|
|
|
#include "struct.h"
|
|
#include "shallow_free.h"
|
|
|
|
void shallow_free_builtin_lambda_value(
|
|
struct value* super)
|
|
{
|
|
ENTER;
|
|
|
|
assert(super->kind == vk_builtin_lambda);
|
|
|
|
struct builtin_lambda_value* this = &super->subclass.builtin_lambda;
|
|
|
|
free_string(this->name);
|
|
|
|
EXIT;
|
|
}
|
|
|