From dd42ab03ba60948ec676e61d97b54167a1787f5b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 16 Oct 2022 22:12:05 +0200
Subject: Truncate print for spawned repl.

Having this as the default allows the representation of vcomponents to
not contain a newline. Otherwise accidentaly printing everything was a
sure fire way to hang emacs.
---
 module/vcomponent/base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module/vcomponent')

diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index b62d45c2..df452f62 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -85,7 +85,7 @@
 ((@ (srfi srfi-9 gnu) set-record-type-printer!)
  <vcomponent>
  (lambda (c p)
-   (format p "#<<vcomponent> ~a, len(child)=~a, parent=~a>~%"
+   (format p "#<<vcomponent> ~a, len(child)=~a, parent=~a>"
            (type c)
            (length (children c))
            (and=> (get-component-parent c) type))))
-- 
cgit v1.2.3