mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 07:33:01 +00:00
Code Issues 1 Releases Wiki Activity

Change metadata keyword back to :redef

Browse Source
This commit is contained in:
Michael Camilleri
2022-01-02 12:35:22 +09:00
parent ec65f038a8
commit ea9d5ec793
4 changed files with 37 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/core/specials.c
View File

@@ -331,11 +331,17 @@ static int defleaf(
JanetTable *entry = janet_table_clone(tab);
janet_table_put(entry, janet_ckeywordv("source-map"),
janet_wrap_tuple(janetc_make_sourcemap(c)));
if (janet_truthy(janet_dyn("dynamic-defs"))) {
janet_table_put(entry, janet_ckeywordv("dynamic"), janet_wrap_true());
int is_redef = 0;
Janet meta_redef = janet_table_get(entry, janet_ckeywordv("redef"));
if (janet_truthy(meta_redef)) {
is_redef = 1;
} else if (janet_checktype(meta_redef, JANET_NIL) && janet_truthy(janet_dyn("redefs"))) {
janet_table_put(entry, janet_ckeywordv("redef"), janet_wrap_true());
is_redef = 1;
}
if (!janet_checktype(janet_table_get(entry, janet_ckeywordv("dynamic")), JANET_NIL)) {
if (is_redef) {
JanetBinding binding = janet_resolve_ext(c->env, sym);
JanetArray *ref;
if (janet_checktype(binding.value, JANET_ARRAY)) {