From dd42ab03ba60948ec676e61d97b54167a1787f5b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= 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/calp/repl.scm | 9 ++++++++- module/vcomponent/base.scm | 2 +- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/module/calp/repl.scm b/module/calp/repl.scm index b0281f07..327ee206 100644 --- a/module/calp/repl.scm +++ b/module/calp/repl.scm @@ -4,6 +4,8 @@ (define-module (calp repl) :use-module (system repl server) + :use-module ((system repl common) :select (repl-default-option-set!)) + :use-module ((ice-9 pretty-print) :select (truncated-print)) :use-module (ice-9 regex) :use-module (ice-9 format) :use-module ((calp util hooks) :select (shutdown-hook)) @@ -37,7 +39,12 @@ ;; currently impossible [(IPv6) (error (G_ "How did you get here?"))])) - ;; TODO setup repl environment here + (repl-default-option-set! + 'print + (lambda (repl obj) + (truncated-print obj) + (newline))) + ;; TODO setup repl environment here ) 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!) (lambda (c p) - (format p "#< ~a, len(child)=~a, parent=~a>~%" + (format p "#< ~a, len(child)=~a, parent=~a>" (type c) (length (children c)) (and=> (get-component-parent c) type)))) -- cgit v1.2.3