add db overwrite

1 files changed, 1 insertions, 1 deletions

diff --git a/creole.c b/creole.c
index d3d51e4..5ddfb0c 100644
--- a/creole.c
+++ b/creole.c
@@ -559,7 +559,7 @@ enum creole_run_ret creole_step(struct creole_env *env, creole_word *sc)
 
 	switch (ins.opcode) {
 	case CREOLE_DB:
-		break;
+		env->dats[ins.w[0]] = ins.datapt;
 	case CREOLE_PUSH:
 		check(read_val(env, &ins, 0, &a1));
 		check(creole_push(env, a1));