From 67d8493d3c7be18f82658aef416f7b88ba6215c7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 1 Nov 1999 01:05:36 +0000 Subject: [PATCH] Eliminate %SYMBOL->STRING. --- v7/src/edwin/comman.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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)) -- 2.25.1