From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 12 Jan 1995 17:24:07 +0000 (+0000)
Subject: Entities used to inplement arity-dispatched-procedures print out
X-Git-Tag: 20090517-FFI~6752
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5d53d22ad1c54408de0e02dbd1ced3d8b03e29ff;p=mit-scheme.git

Entities used to inplement arity-dispatched-procedures print out
slighty differently.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 834d55e9b..d57ebc0c0 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.37 1994/11/04 20:06:41 cph Exp $
+$Id: unpars.scm,v 14.38 1995/01/12 17:24:07 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -686,6 +686,8 @@ MIT in each case. |#
 (define (unparse/entity entity)
   (*unparse-with-brackets (cond ((continuation? entity) 'CONTINUATION)
 				((apply-hook? entity) 'APPLY-HOOK)
+				((arity-dispatched-procedure? entity)
+				 'ARITY-DISPATCHED-PROCEDURE)
 				(else 'ENTITY))
 			  entity
 			  false))
\ No newline at end of file