From 02f3bf1f74248b6142361a6c57185f986e6f336c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 03:54:36 +0000
Subject: [PATCH] Don't quote description strings.  Quoting precludes the use
 of arbitrary expressions to compute the documentation.

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

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
-- 
2.25.1