1
0
mirror of https://github.com/janet-lang/janet synced 2025-11-14 06:17:15 +00:00

Fix -s flag in janet binary.

This commit is contained in:
Calvin Rose
2018-12-30 18:23:29 -05:00
parent 56927e1b81
commit 8dde89126e
2 changed files with 6 additions and 1 deletions

View File

@@ -195,6 +195,11 @@ recur:
if (janet_gc_reachable(fiber))
return;
janet_gc_mark(fiber);
/* Mark values on the argument stack */
janet_mark_many(fiber->data + fiber->stackstart,
fiber->stacktop - fiber->stackstart);
i = fiber->frame;
j = fiber->stackstart - JANET_FRAME_SIZE;
while (i > 0) {