From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 13 Jan 1995 22:11:39 +0000 (+0000)
Subject: Fixed typo in previous edit.
X-Git-Tag: 20090517-FFI~6744
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=367e33c46488bc1eb29314965b99c655292c1586;p=mit-scheme.git

Fixed typo in previous edit.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 5afc10771..be97108ee 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.39 1995/01/13 21:48:54 adams Exp $
+$Id: unpars.scm,v 14.40 1995/01/13 22:11:39 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -684,18 +684,19 @@ MIT in each case. |#
       (*unparse-hex ((ucode-primitive primitive-object-datum 1) future)))))
 
 (define (unparse/entity entity)
-  (define (plain name) (*unparse-with-brackets name entity false))
+  (define (plain name)
+    (*unparse-with-brackets name entity false))
+  (define (named-arity-dispatched-procedure name)
+    (*unparse-with-brackets 'ARITY-DISPATCHED-PROCEDURE
+			    entity
+			    (lambda () (*unparse-string name))))
   (cond ((continuation? entity) (plain 'CONTINUATION))
 	((apply-hook? entity)   (plain 'APPLY-HOOK))
 	((arity-dispatched-procedure? entity)
-	 (define (print-with-name name)
-	   (*unparse-with-brackets 'ARITY-DISPATCHED-PROCEDURE
-				   entity
-				   (lambda () (*unparse-string name))))
 	 (let ((proc  (entity-procedure entity)))
 	   (cond ((and (compiled-code-address? proc)
 		       (compiled-procedure? proc)
 		       (compiled-procedure/name proc))
-		  => print-with-name)
+		  => named-arity-dispatched-procedure)
 		 (else (plain 'ARITY-DISPATCHED-PROCEDURE)))))
 	(else (plain 'ENTITY))))