From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Nov 1999 01:05:36 +0000 (+0000)
Subject: Eliminate %SYMBOL->STRING.
X-Git-Tag: 20090517-FFI~4430
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67d8493d3c7be18f82658aef416f7b88ba6215c7;p=mit-scheme.git

Eliminate %SYMBOL->STRING.
---

diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index db7e9e716..30a295d73 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comman.scm,v 1.80 1999/01/02 06:11:34 cph Exp $
+$Id: comman.scm,v 1.81 1999/11/01 01:05:36 cph Exp $
 
 Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 
@@ -34,14 +34,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   interactive-specification
   procedure)
 
-(define-integrable (%symbol->string sym)
-  (system-pair-car sym))
-
 (define (command-description command)
   (let ((desc (command-%description command)))
     (if (string? desc)
 	desc
-	(let ((new (->doc-string (%symbol->string (command-name command))
+	(let ((new (->doc-string (symbol->string (command-name command))
 				 desc)))
 	  (if new
 	      (set-command-%description! command new))
@@ -116,7 +113,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (let ((desc (variable-%description variable)))
     (if (string? desc)
 	desc
-	(let ((new (->doc-string (%symbol->string (variable-name variable))
+	(let ((new (->doc-string (symbol->string (variable-name variable))
 				 desc)))
 	  (if new
 	      (set-variable-%description! variable new))