From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 20 Oct 1992 20:46:51 +0000 (+0000)
Subject: Change definition of define-command so commands can share
X-Git-Tag: 20090517-FFI~8829
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=142e83ce48a3675c10ee8c28bf344585c2bd73b8;p=mit-scheme.git

Change definition of define-command so commands can share
descriptions.
---

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)