diff --git a/client/main.c b/client/main.c index d77ee253..7a13ab8f 100644 --- a/client/main.c +++ b/client/main.c @@ -171,6 +171,7 @@ static int debug_repl(Gst *vm, uint64_t flags) { continue; } gst_env_putc(vm, vm->env, "_", vm->ret); + gst_env_putc(vm, vm->env, "-env-", gst_wrap_table(vm->env)); if (!debug_compile_and_run(vm, gst_parse_consume(&p), flags)) { printf_flags(flags, "36", "%s\n", (const char *) gst_description(vm, vm->ret)); } diff --git a/core/compile.c b/core/compile.c index e55b56e3..7e23fcf1 100644 --- a/core/compile.c +++ b/core/compile.c @@ -422,7 +422,7 @@ static int symbol_resolve(GstCompiler *c, GstValue x, uint16_t *level, uint16_t GstTable *metas = gst_env_meta(c->vm, c->env); GstValue maybeMeta = gst_table_get(metas, x); if (maybeMeta.type == GST_TABLE) { - GstValue isMutable = gst_table_get(maybeMeta.data.table, gst_string_cvs(c->vm, "mutable")); + GstValue isMutable = gst_table_get(maybeMeta.data.table, gst_string_cv(c->vm, "mutable")); if (gst_truthy(isMutable)) { if (flags) *flags = GST_LOCAL_FLAG_MUTABLE; *out = check; diff --git a/core/ds.c b/core/ds.c index fb1afc08..3da59ef7 100644 --- a/core/ds.c +++ b/core/ds.c @@ -295,5 +295,4 @@ GstValue gst_table_next(GstTable *t, GstValue key) { return bucket[0]; } return gst_wrap_nil(); -} - +} \ No newline at end of file diff --git a/core/util.c b/core/util.c index 617dc427..d075302a 100644 --- a/core/util.c +++ b/core/util.c @@ -445,7 +445,7 @@ void gst_env_putvar(Gst *vm, GstTable *env, GstValue key, GstValue value) { ref->count = 1; ref->data[0] = value; gst_table_put(vm, env, key, gst_wrap_array(ref)); - gst_table_put(vm, newmeta, gst_string_cvs(vm, "mutable"), gst_wrap_boolean(1)); + gst_table_put(vm, newmeta, gst_string_cv(vm, "mutable"), gst_wrap_boolean(1)); gst_table_put(vm, meta, key, gst_wrap_table(newmeta)); }