mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-28 19:19:53 +00:00
Code Issues 1 Releases Wiki Activity

Format compile.c

Browse Source
This commit is contained in:
Calvin Rose 2022-11-27 10:15:01 -06:00
parent 07fe9bcdf6
commit 0824f45e29
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/compile.c
View File

@ -1006,7 +1006,7 @@ JANET_CORE_FN(cfun_compile,
"Each message will be a tuple of the form `(level line col message)`.") { "Each message will be a tuple of the form `(level line col message)`.") {
janet_arity(argc, 1, 4); janet_arity(argc, 1, 4);
JanetTable *env = (argc > 1 && !janet_checktype(argv[1], JANET_NIL)) JanetTable *env = (argc > 1 && !janet_checktype(argv[1], JANET_NIL))
? janet_gettable(argv, 1) : janet_vm.fiber->env; ? janet_gettable(argv, 1) : janet_vm.fiber->env;
if (NULL == env) { if (NULL == env) {
env = janet_table(0); env = janet_table(0);
janet_vm.fiber->env = env; janet_vm.fiber->env = env;
@ -1023,7 +1023,7 @@ JANET_CORE_FN(cfun_compile,
} }
} }
JanetArray *lints = (argc >= 4 && !janet_checktype(argv[3], JANET_NIL)) JanetArray *lints = (argc >= 4 && !janet_checktype(argv[3], JANET_NIL))
? janet_getarray(argv, 3) : NULL; ? janet_getarray(argv, 3) : NULL;
JanetCompileResult res = janet_compile_lint(argv[0], env, source, lints); JanetCompileResult res = janet_compile_lint(argv[0], env, source, lints);
if (res.status == JANET_COMPILE_OK) { if (res.status == JANET_COMPILE_OK) {
return janet_wrap_function(janet_thunk(res.funcdef)); return janet_wrap_function(janet_thunk(res.funcdef));