Hello, Attached a patch so repl-print becomes 'friendly' wrt large (huge) lists, arrays, srfi-4 bytevectors ...
I looked at the documentation but I could not spot anything/places where
things would need to be changed wrt the above patch?
Dito wrt tests?
Thanks,
David
From d920d22efe3e77d23004122e21cec420c402f531 Mon Sep 17 00:00:00 2001
From: David Pirotte <da...@altosw.be>
Date: Mon, 11 Dec 2017 21:28:24 -0200
Subject: [PATCH] Updating repl-print to use truncated-print
* module/system/repl/common.scm (repl-print): Use (truncated-print val),
not (write val). With this update, repl-print becomes 'friendly' wrt
large (huge) lists, arrays, srfi-4 butevoectors ...
---
module/system/repl/common.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index 42d5c24ae..47799957d 100644
--- a/module/system/repl/common.scm
+++ b/module/system/repl/common.scm
@@ -1,6 +1,6 @@
;;; Repl common routines
-;; Copyright (C) 2001, 2008-2016 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2008-2017 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
@@ -28,6 +28,7 @@
#:autoload (language tree-il optimize) (optimize)
#:use-module (ice-9 control)
#:use-module (ice-9 history)
+ #:use-module (ice-9 pretty-print)
#:export (<repl> make-repl repl-language repl-options
repl-tm-stats repl-gc-stats repl-debug
repl-welcome repl-prompt
@@ -223,7 +224,7 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.")
;; should be printed with the generic printer, `write'. The
;; language-printer is something else: it prints expressions of
;; a given language, not the result of evaluation.
- (write val)
+ (truncated-print val)
(newline))))))
(define (repl-option-ref repl key)
--
2.15.1
pgpZo0ptSYSQC.pgp
Description: OpenPGP digital signature
