diff options
author | Andy Wingo <wingo@pobox.com> | 2024-01-29 10:59:54 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2024-01-29 10:59:54 +0100 |
commit | bb5829f5ffaae37764084d2cc949e9a1fd697bca (patch) | |
tree | a82ec6e46505b36079b1d48cc80a1fe48413dbd6 /module | |
parent | 1349c41a601d4bda3f27be29b7359a32830b736c (diff) | |
download | guile-bb5829f5ffaae37764084d2cc949e9a1fd697bca.tar.gz |
default-frame-width is a parameter
* module/system/repl/debug.scm (default-frame-width): A parameter
instead of a fluid.
(print-frames): Adapt use.
Diffstat (limited to 'module')
-rw-r--r-- | module/system/repl/debug.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/system/repl/debug.scm b/module/system/repl/debug.scm index 8109fdb1c..036481edb 100644 --- a/module/system/repl/debug.scm +++ b/module/system/repl/debug.scm @@ -1,6 +1,6 @@ ;;; Guile VM debugging facilities -;;; Copyright (C) 2001, 2009-2011, 2013-2015, 2023 Free Software Foundation, Inc. +;;; Copyright (C) 2001, 2009-2011, 2013-2015, 2023-2024 Free Software Foundation, Inc. ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -76,7 +76,10 @@ ;; Maximum number of columns filled by 'print-frames' when writing to ;; a port that is not a terminal. This is a purposefully large value ;; to avoid losing important debugging info. - (make-fluid 500)) + (make-parameter 500 + (lambda (val) + (and (exact-integer? val) (positive? val) + val)))) @@ -148,7 +151,7 @@ #:key (width (if (isatty? port) (terminal-width) - (fluid-ref default-frame-width))) + (default-frame-width))) (full? #f) (forward? #f) count) (let* ((len (vector-length frames)) |