1
0
mirror of https://github.com/janet-lang/janet synced 2024-06-16 10:19:55 +00:00

Fix suite7 failing when run with no docstrings.

This commit is contained in:
Calvin Rose 2019-10-29 18:28:41 -05:00
parent 0d16b9e1a1
commit 2541806dc1
2 changed files with 3 additions and 2 deletions

View File

@ -2066,6 +2066,7 @@ _fiber is bound to the suspended fiber
"Entrance for the Janet CLI tool. Call this functions with the command line "Entrance for the Janet CLI tool. Call this functions with the command line
arguments as an array or tuple of strings to invoke the CLI interface." arguments as an array or tuple of strings to invoke the CLI interface."
[args] [args]
(setdyn :args args) (setdyn :args args)
(var *should-repl* false) (var *should-repl* false)
@ -2093,7 +2094,7 @@ _fiber is bound to the suspended fiber
-r : Enter the repl after running all scripts -r : Enter the repl after running all scripts
-p : Keep on executing if there is a top level error (persistent) -p : Keep on executing if there is a top level error (persistent)
-q : Hide prompt, logo, and repl output (quiet) -q : Hide prompt, logo, and repl output (quiet)
-k : Compile scripts but do not execute -k : Compile scripts but do not execute (flycheck)
-m syspath : Set system path for loading global modules -m syspath : Set system path for loading global modules
-c source output : Compile janet source code into an image -c source output : Compile janet source code into an image
-n : Disable ANSI color output in the repl -n : Disable ANSI color output in the repl

View File

@ -128,7 +128,7 @@
# Make sure Carriage Returns don't end up in doc strings. # Make sure Carriage Returns don't end up in doc strings.
(assert (not (string/find "\r" (get ((fiber/getenv (fiber/current)) 'cond) :doc))) "no \\r in doc strings") (assert (not (string/find "\r" (get ((fiber/getenv (fiber/current)) 'cond) :doc ""))) "no \\r in doc strings")
# module/expand-path regression # module/expand-path regression
(with-dyns [:syspath ".janet/.janet"] (with-dyns [:syspath ".janet/.janet"]