From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 29 Apr 2017 19:06:04 +0000 (-0700)
Subject: runtime/global (write-to-string): missing arg
X-Git-Tag: mit-scheme-pucked-9.2.12~148^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9e599f0413ce3bec5ceb71464638d80f672ca792;p=mit-scheme.git

runtime/global (write-to-string): missing arg
---

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index 7d7bef281..a4c156b44 100644
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -149,10 +149,12 @@ USA.
 (define with-values call-with-values)
 
 (define (write-to-string object #!optional max)
-  ((if (or (default-object? max) (not max))
-       call-with-output-string
-       call-with-truncated-output-string)
-   (lambda (port) (write object port))))
+  (if (or (default-object? max) (not max))
+      (call-with-output-string
+       (lambda (port) (write object port)))
+      (call-with-truncated-output-string
+       max
+       (lambda (port) (write object port)))))
 
 (define (pa procedure)
   (guarantee procedure? procedure 'PA)