From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 03:54:36 +0000 (+0000)
Subject: Don't quote description strings.  Quoting precludes the use of
X-Git-Tag: 20090517-FFI~4682
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=02f3bf1f74248b6142361a6c57185f986e6f336c;p=mit-scheme.git

Don't quote description strings.  Quoting precludes the use of
arbitrary expressions to compute the documentation.
---

diff --git a/v7/src/edwin/macros.scm b/v7/src/edwin/macros.scm
index 047c574a0..4820090cc 100644
--- a/v7/src/edwin/macros.scm
+++ b/v7/src/edwin/macros.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: macros.scm,v 1.63 1999/01/02 06:11:34 cph Exp $
+;;; $Id: macros.scm,v 1.64 1999/01/28 03:54:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -110,7 +110,7 @@
 	       `(BEGIN
 		  (DEFINE ,scheme-name
 		    (MAKE-VARIABLE ',name
-				   ',description
+				   ,description
 				   ,(if (default-object? value) '#F value)
 				   ',buffer-local?))
 		  ,@(if (default-object? test)
@@ -169,7 +169,7 @@
 		    ,(if super-mode-name
 			 `(->MODE ',super-mode-name)
 			 `#F)
-		    ',description
+		    ,description
 		    ,(let ((super-initialization
 			    (and super-mode-name
 				 `(MODE-INITIALIZATION
@@ -194,7 +194,7 @@
 		    #F
 		    ',(or display-name (symbol->string name))
 		    #F
-		    ',description
+		    ,description
 		    ,(if (and (not (default-object? initialization))
 			      initialization)
 			 initialization