From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 13 Feb 2017 10:12:24 +0000 (-0800)
Subject: Fix typos in previous change.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~120
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=80ad1ab5d950a84d5081ac5c748929b73244bbf9;p=mit-scheme.git

Fix typos in previous change.
---

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index 7c4b230b4..04718f69b 100644
--- a/src/runtime/unpars.scm
+++ b/src/runtime/unpars.scm
@@ -433,7 +433,7 @@ USA.
       (unparse-symbol symbol context)
       (*unparse-with-brackets 'UNINTERNED-SYMBOL symbol context
         (lambda (context*)
-          (unparse-symbol symbol context)))))
+          (unparse-symbol symbol context*)))))
 
 (define (unparse-symbol symbol context)
   (if (keyword? symbol)
@@ -825,17 +825,17 @@ USA.
       (*unparse-object (assignment-name assignment) context*))))
 
 (define (unparse/definition definition context)
-  (*unparse-with-brackets 'DEFINITION definition
+  (*unparse-with-brackets 'DEFINITION definition context
     (lambda (context*)
       (*unparse-object (definition-name definition) context*))))
 
 (define (unparse/lambda lambda-object context)
-  (*unparse-with-brackets 'LAMBDA lambda-object
+  (*unparse-with-brackets 'LAMBDA lambda-object context
     (lambda (context*)
       (*unparse-object (lambda-name lambda-object) context*))))
 
 (define (unparse/variable variable context)
-  (*unparse-with-brackets 'VARIABLE variable
+  (*unparse-with-brackets 'VARIABLE variable context
     (lambda (context*)
       (*unparse-object (variable-name variable) context*))))
 
@@ -874,14 +874,14 @@ USA.
 			  (min length limit)
 			  length))))
                (unparse/flonum ((ucode-primitive floating-vector-ref) v 0)
-			       context)
+			       context*)
                (do ((i 1 (+ i 1)))
                    ((>= i limit))
-                 (*unparse-char #\space context)
+                 (*unparse-char #\space context*)
                  (unparse/flonum ((ucode-primitive floating-vector-ref) v i)
-				 context))
+				 context*))
                (if (< limit length)
-                   (*unparse-string " ..." context))))))))
+                   (*unparse-string " ..." context*))))))))
 
 (define (unparse/entity entity context)