summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2024-01-29 10:59:54 +0100
committerAndy Wingo <wingo@pobox.com>2024-01-29 10:59:54 +0100
commitbb5829f5ffaae37764084d2cc949e9a1fd697bca (patch)
treea82ec6e46505b36079b1d48cc80a1fe48413dbd6 /module
parent1349c41a601d4bda3f27be29b7359a32830b736c (diff)
downloadguile-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.scm9
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))