Subject: bug#29669: repl-print - requet for iprovement

From: David Pirotte <[email-masked]>
Date: Mon, 11 Dec 2017 21:36:15 -0200

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 <[email-masked]>
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