Disallow *unparse-symbol integration to provide hook for canonicalization.

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index 2248077af25c7e2d7ef9d4b4b3a213f2452c3c54..85213ed8b4bd44f52dfb149a49cfc42e8a76b17b 100644 (file)
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pp.scm,v 13.43 1987/04/24 13:36:36 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pp.scm,v 13.44 1987/06/26 04:31:51 jinx Rel $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -368,14 +368,13 @@
 ;;;  or the print-name of a symbol wasn't worth the speed that would
 ;;;  be gained by keeping it around.
 
-(declare (integrate symbol-length *unparse-symbol))
+(declare (integrate symbol-length))
 
 (define (symbol-length symbol)
   (declare (integrate symbol))
   (string-length (symbol->string symbol)))
 
 (define (*unparse-symbol symbol)
-  (declare (integrate symbol))
   (*unparse-string (symbol->string symbol)))
 
 (define (make-prefix-node prefix subnode)