From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 29 May 2017 20:33:21 +0000 (+0000)
Subject: Fix missing argument.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~39
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2a55d7892b7537bfb861d9449c67e47188868973;p=mit-scheme.git

Fix missing argument.

Noted by mejja.
---

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index 89ca89833..3b7dd42ca 100644
--- a/src/runtime/unpars.scm
+++ b/src/runtime/unpars.scm
@@ -346,7 +346,7 @@ USA.
 (define (*unparse-with-brackets name object context procedure)
   (if (or (and (get-param:unparse-with-maximum-readability?) object)
           (context-in-brackets? context))
-      (*unparse-readable-hash object)
+      (*unparse-readable-hash object context)
       (begin
 	(*unparse-string "#[" context)
 	(let ((context* (context-in-brackets context)))