diff options
| -rw-r--r-- | mu.arc | 31 | ||||
| -rw-r--r-- | trace.arc.t | 2 |
2 files changed, 19 insertions, 14 deletions
diff --git a/mu.arc b/mu.arc index ee59472b..2328197c 100644 --- a/mu.arc +++ b/mu.arc @@ -848,19 +848,19 @@ ;? (write (m arg.0)) (pr " => ") (prn (type (m arg.0))) (if (no ($.current-charterm)) (pr (m arg.0)) - (caselet x (m arg.0) - ; todo: test these exceptions - #\newline - (pr "\r\n") - #\backspace - ; backspace doesn't clear after moving the cursor - (pr "\b \b") - ctrl-c - (do ($.close-charterm) - (die "interrupted")) - ;else - (pr x))) - ) + (unless disable-debug-prints-in-console-mode* + (caselet x (m arg.0) + #\newline + (pr "\r\n") + #\backspace + ; backspace doesn't clear after moving the cursor + (pr "\b \b") + ctrl-c + (do ($.close-charterm) + (die "interrupted")) + ;else + (pr x))) + )) $eval (new-string:repr:eval:read:to-arc-string (m arg.0)) ;? (let x (to-arc-string (m arg.0)) ;? 1 @@ -1753,6 +1753,11 @@ (= scheduler-switch-table* nil) ) +(= disable-debug-prints-in-console-mode* nil) +(def test-only-settings () + (set allow-raw-addresses*) + (set disable-debug-prints-in-console-mode*)) + (def routine-that-ran (f) (find [some [is f _!fn-name] stack._] completed-routines*)) diff --git a/trace.arc.t b/trace.arc.t index a6d30d06..cfe0f702 100644 --- a/trace.arc.t +++ b/trace.arc.t @@ -1,5 +1,5 @@ (selective-load "mu.arc" section-level) -(set allow-raw-addresses*) +(test-only-settings) (add-code:readfile "trace.mu") (freeze function*) (load-system-functions) |