diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 22:12:05 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 23:28:34 +0200 |
| commit | dd42ab03ba60948ec676e61d97b54167a1787f5b (patch) | |
| tree | 639386cce10780256105b0166e282d2e307162d6 /module/vcomponent | |
| parent | Better error handling when submitting events. (diff) | |
| download | calp-dd42ab03ba60948ec676e61d97b54167a1787f5b.tar.gz calp-dd42ab03ba60948ec676e61d97b54167a1787f5b.tar.xz | |
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.
Diffstat (limited to 'module/vcomponent')
| -rw-r--r-- | module/vcomponent/base.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |