mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-08 19:43:41 +00:00
Code Issues 1 Releases Wiki Activity

Add macroexpand and macroexpand1

Browse Source
This commit is contained in:
Calvin Rose
2018-03-18 14:01:58 -04:00
parent 9461eb8b74
commit 855787b292
8 changed files with 127 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/util.c
View File

@@ -112,7 +112,7 @@ int dst_cstrcmp(const uint8_t *str, const char *other) {
/* Add a module definition */
void dst_env_def(DstTable *env, const char *name, Dst val) {
DstTable *subt = dst_table(1);
dst_table_put(subt, dst_csymbolv("value"), val);
dst_table_put(subt, dst_csymbolv(":value"), val);
dst_table_put(env, dst_csymbolv(name), dst_wrap_table(subt));
}
@@ -121,7 +121,7 @@ void dst_env_var(DstTable *env, const char *name, Dst val) {
DstArray *array = dst_array(1);
DstTable *subt = dst_table(1);
dst_array_push(array, val);
dst_table_put(subt, dst_csymbolv("ref"), dst_wrap_array(array));
dst_table_put(subt, dst_csymbolv(":ref"), dst_wrap_array(array));
dst_table_put(env, dst_csymbolv(name), dst_wrap_table(subt));
}
@@ -139,11 +139,11 @@ Dst dst_env_resolve(DstTable *env, const char *name) {
Dst ref;
Dst entry = dst_table_get(env, dst_csymbolv(name));
if (dst_checktype(entry, DST_NIL)) return dst_wrap_nil();
ref = dst_get(entry, dst_csymbolv("ref"));
ref = dst_get(entry, dst_csymbolv(":ref"));
if (dst_checktype(ref, DST_ARRAY)) {
return dst_getindex(ref, 0);
}
return dst_get(entry, dst_csymbolv("value"));
return dst_get(entry, dst_csymbolv(":value"));
}
/* Get module from the arguments passed to library */