From: Chris Hanson Date: Sat, 20 Jan 2018 03:58:07 +0000 (-0800) Subject: Fix bug: trace was depending on a string being mutable when it wasn't. X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~338 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2dbeea5e8ceebd7739c7ff1f851864256a4f07d5;p=mit-scheme.git Fix bug: trace was depending on a string being mutable when it wasn't. --- diff --git a/src/runtime/advice.scm b/src/runtime/advice.scm index f71f8c228..656fb8e8e 100644 --- a/src/runtime/advice.scm +++ b/src/runtime/advice.scm @@ -259,9 +259,9 @@ USA. (write-truncated (lambda (object width) (let ((output (write-to-string object width))) + (write-string (cdr output) port) (if (car output) - (string-fill! (cdr output) #\. (- width 3) width)) - (write-string (cdr output) port))))) + (write-string "..." port)))))) (if (default-object? result) (write-string "[Entering " port) (begin