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

Fix some vararg behavior in tail calls.

Browse Source
This commit is contained in:
bakpakin
2018-01-12 13:54:37 -05:00
parent 204caa6d8f
commit f8174f192c
6 changed files with 87 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
core/stl.c
View File

@@ -184,6 +184,15 @@ int dst_stl_gensym(int32_t argn, Dst *argv, Dst *ret) {
return 0;
}
int dst_stl_length(int32_t argn, Dst *argv, Dst *ret) {
if (argn != 1) {
*ret = dst_cstringv("expected at least 1 argument");
return 1;
}
*ret = dst_wrap_integer(dst_length(argv[0]));
return 0;
}
int dst_stl_get(int32_t argn, Dst *argv, Dst *ret) {
int32_t i;
Dst ds;
@@ -281,6 +290,7 @@ static DstReg stl[] = {
{"disasm", dst_stl_disasm},
{"get", dst_stl_get},
{"put", dst_stl_put},
{"length", dst_stl_length},
{"+", dst_add},
{"-", dst_subtract},
{"*", dst_multiply},