From 2541806dc1d4a31503562a8ded20ae55bd377a7e Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Tue, 29 Oct 2019 18:28:41 -0500 Subject: [PATCH] Fix suite7 failing when run with no docstrings. --- src/boot/boot.janet | 3 ++- test/suite7.janet | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 8468d0ae..fbb0eea5 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -2066,6 +2066,7 @@ _fiber is bound to the suspended fiber "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." [args] + (setdyn :args args) (var *should-repl* false) @@ -2093,7 +2094,7 @@ _fiber is bound to the suspended fiber -r : Enter the repl after running all scripts -p : Keep on executing if there is a top level error (persistent) -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 -c source output : Compile janet source code into an image -n : Disable ANSI color output in the repl diff --git a/test/suite7.janet b/test/suite7.janet index 49d1e7cb..5a784aa2 100644 --- a/test/suite7.janet +++ b/test/suite7.janet @@ -128,7 +128,7 @@ # 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 (with-dyns [:syspath ".janet/.janet"]