mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-12-06 16:48:08 +00:00
Code Issues 1 Releases Wiki Activity

More work on bootstrapping code. Have working macro expansion.

Browse Source
This commit is contained in:
bakpakin
2017-07-15 16:56:03 -04:00
parent f0545865a8
commit a39a6fd97f
5 changed files with 98 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
core/stl.c
View File

@@ -1020,6 +1020,21 @@ static int gst_stl_compile(Gst *vm) {
gst_c_return(vm, gst_compile(vm, env, gst_arg(vm, 0)));
}
/* Get vm->env */
static int gst_stl_getenv(Gst *vm) {
gst_c_return(vm, gst_wrap_table(vm->env));
}
/* Set vm->env */
static int gst_stl_setenv(Gst *vm) {
GstValue newEnv = gst_arg(vm, 0);
if (newEnv.type != GST_TABLE) {
gst_c_throwc(vm, "expected table");
}
vm->env = newEnv.data.table;
return GST_RETURN_OK;
}
/****/
/* Bootstraping */
/****/
@@ -1058,6 +1073,8 @@ static const GstModuleItem std_module[] = {
{"parse-status", gst_stl_parser_status},
{"parse", gst_stl_parse},
/* Compile */
{"getenv", gst_stl_getenv},
{"setenv", gst_stl_setenv},
{"compile", gst_stl_compile},
/* Other */
{"not", gst_stl_not},