mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-15 06:47:17 +00:00
Code Issues 1 Releases Wiki Activity

Address #23

Browse Source
This commit is contained in:
Calvin Rose
2019-01-25 20:31:08 -05:00
parent 8ee2f0a1d6
commit e755f98300
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/buffer.c
View File

@@ -192,10 +192,10 @@ static Janet cfun_buffer_word(int32_t argc, Janet *argv) {
janet_arity(argc, 1, -1);
JanetBuffer *buffer = janet_getbuffer(argv, 0);
for (i = 1; i < argc; i++) {
double number = janet_getnumber(argv, 0);
double number = janet_getnumber(argv, i);
uint32_t word = (uint32_t) number;
if (word != number)
janet_panicf("cannot convert %v to machine word", argv[0]);
janet_panicf("cannot convert %v to machine word", argv[i]);
janet_buffer_push_u32(buffer, word);
}
return argv[0];