Fix missing argument.

Noted by mejja.

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index 89ca8983329baae86aa9d202cca2a3de8e4a8bf3..3b7dd42ca179ad67400414777a22566db6d7ea6a 100644 (file)
--- 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)))