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

Windows bump.

Browse Source
This commit is contained in:
Calvin Rose 2019-03-30 13:05:07 -04:00
parent 970923d0e5
commit 8af28d3fa5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/core/os.c
View File

@ -395,8 +395,8 @@ static const uint8_t *janet_decode_permissions(unsigned short m) {
static const uint8_t *janet_decode_mode(unsigned short m) { static const uint8_t *janet_decode_mode(unsigned short m) {
const char *str = "other"; const char *str = "other";
if (_S_ISREG(m)) str = "file"; if (S_ISREG(m)) str = "file";
else if (_S_ISDIR(m)) str = "directory"; else if (S_ISDIR(m)) str = "directory";
return janet_ckeyword(str); return janet_ckeyword(str);
} }
#else #else
@ -480,7 +480,7 @@ static Janet os_dir(int32_t argc, Janet *argv) {
intptr_t res = _findfirst(pattern, &afile); intptr_t res = _findfirst(pattern, &afile);
while (res != -1) { while (res != -1) {
janet_array_push(paths, janet_cstringv(afile.name)); janet_array_push(paths, janet_cstringv(afile.name));
res = _findnext(pattern, &afile); res = _findnext(res, &afile);
} }
_findclose(res); _findclose(res);
#else #else