From 142e83ce48a3675c10ee8c28bf344585c2bd73b8 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 20 Oct 1992 20:46:51 +0000
Subject: [PATCH] Change definition of define-command so commands can share
 descriptions.

---
 v7/src/edwin/macros.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/macros.scm b/v7/src/edwin/macros.scm
index a4d5c96cf..f24d7728d 100644
--- a/v7/src/edwin/macros.scm
+++ b/v7/src/edwin/macros.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/macros.scm,v 1.55 1992/08/28 18:46:48 jinx Exp $
+;;;	$Id: macros.scm,v 1.56 1992/10/20 20:46:51 jinx Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -108,7 +108,7 @@
       (let ((scheme-name (command-name->scheme-name name)))
 	`(DEFINE ,scheme-name
 	   (MAKE-COMMAND ',name
-			 ',description
+			 ,description
 			 ,(if (null? interactive)
 			      `'()
 			      interactive)
-- 
2.25.1