aboutsummaryrefslogtreecommitdiff
path: root/src/builtins.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/builtins.c')
-rw-r--r--src/builtins.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/builtins.c b/src/builtins.c
index 301104d..5d7752c 100644
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -1100,7 +1100,7 @@ void stemsleep(value_t *v) {
value_free(v1);
}
-void stemcut(value_t *v) {}
+void stemcut(value_t *v) { value_t *v1 = array_pop(STACK); }
void undef(value_t *v) {
value_t *v1 = array_pop(STACK);
@@ -1114,7 +1114,7 @@ void undef(value_t *v) {
return;
}
ht_delete(WORD_TABLE, v1->str_word, value_free);
- ht_delete(FLIT, v1->str_word, value_free);
+ ht_delete(FLIT, v1->str_word, func_free);
value_free(v1);
}