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 834d55e9beaef8a848223f55b1c8c9753a2b4ece..d57ebc0c02bc737dccdf5d7207b189859895a064 100644 (file)
--- 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