mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-01 04:19:55 +00:00
Code Issues 1 Releases Wiki Activity

Fix -s flag in janet binary.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/core/gc.c
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) {

2
src/mainclient/init.janet
View File

@ -51,7 +51,7 @@
(when (or *should-repl* *no-file*)
(if *raw-stdin*
(repl nil identity)
(repl nil (fn [x &] x))
(do
(print (string "Janet " janet/version "-" janet/build " Copyright (C) 2017-2018 Calvin Rose"))
(repl (fn [buf p]