From d920d22efe3e77d23004122e21cec420c402f531 Mon Sep 17 00:00:00 2001 From: David Pirotte 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 ( make-repl repl-language repl-options repl-tm-stats repl-gc-stats repl-debug repl-welcome repl-prompt @@ -223,7 +224,7 @@ See , 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