From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 25 Jun 1987 22:23:32 +0000 (+0000)
Subject: Provide a *unparse-symbol hook for canonicalization.
X-Git-Tag: 20090517-FFI~13325
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cfb12624d743d72d46a28ec6c2cd61028e943c8d;p=mit-scheme.git

Provide a *unparse-symbol hook for canonicalization.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 2646d441a..30eeb0f92 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 13.47 1987/06/17 20:09:58 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 13.48 1987/06/25 22:23:32 jinx Exp $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -52,6 +52,7 @@
 
 (define *unparse-char)
 (define *unparse-string)
+(define *unparse-symbol)
 (define *unparser-list-depth*)
 (define *slashify*)
 
@@ -64,7 +65,10 @@
   (fluid-let ((*unparse-char (access :write-char port))
 	      (*unparse-string (access :write-string port))
 	      (*unparser-list-depth* 0)
-	      (*slashify* slashify))
+	      (*slashify* slashify)
+	      (*unparse-symbol (if (unassigned? *unparse-symbol)
+				   unparse-symbol
+				   *unparse-symbol)))
     (*unparse-object-or-future object)))
 
 (define (*unparse-object-or-future object)
@@ -118,7 +122,7 @@
   (*unparse-string (symbol->string symbol)))
 
 (define-type 'INTERNED-SYMBOL
-  unparse-symbol)
+  *unparse-symbol)
 
 (define-type 'UNINTERNED-SYMBOL
   (lambda (symbol)