From 9e599f0413ce3bec5ceb71464638d80f672ca792 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 29 Apr 2017 12:06:04 -0700 Subject: [PATCH] runtime/global (write-to-string): missing arg --- src/runtime/global.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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) -- 2.25.1