From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 29 Jan 2016 19:23:12 +0000 (-0700)
Subject: world-monitor: truncate lines
X-Git-Tag: mit-scheme-pucked-9.2.12~371^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0d8dd6582189fc61423ad2c95852a293a91c13da;p=mit-scheme.git

world-monitor: truncate lines
---

diff --git a/src/edwin/world-monitor.scm b/src/edwin/world-monitor.scm
index 5b02a344b..6705693b4 100644
--- a/src/edwin/world-monitor.scm
+++ b/src/edwin/world-monitor.scm
@@ -49,6 +49,7 @@ it, and spawn a thread to update it after every
 
 (define (start-world-monitor buffer)
   (set-buffer-major-mode! buffer (ref-mode-object read-only))
+  (local-set-variable! truncate-lines #t buffer)
   (let ((registration #f)
 	(report #f)
 	(thread-flags (list (cons (current-thread) "edwin"))))