mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-11 21:14:16 +00:00
Code Issues 1 Releases Wiki Activity

Work on threads.

Browse Source 
Add send and receive.
This commit is contained in:
Calvin Rose
2019-12-01 20:28:12 -06:00
parent 5cd6580c2d
commit 6a763aac95
7 changed files with 280 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/core/util.c
View File

@@ -331,18 +331,9 @@ const JanetAbstractType *janet_get_abstract_type(Janet key) {
void janet_core_def(JanetTable *env, const char *name, Janet x, const void *p) {
(void) p;
Janet key = janet_csymbolv(name);
Janet value;
/* During init, allow replacing core library cfunctions with values from
* the env. */
Janet check = janet_table_get(env, key);
if (janet_checktype(check, JANET_NIL)) {
value = x;
} else {
value = check;
}
janet_table_put(env, key, value);
if (janet_checktype(value, JANET_CFUNCTION)) {
janet_table_put(janet_vm_registry, value, key);
janet_table_put(env, key, x);
if (janet_checktype(x, JANET_CFUNCTION)) {
janet_table_put(janet_vm_registry, x, key);
}
}