From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Feb 2002 18:53:02 +0000 (+0000)
Subject: Fix another problem with NAME->VARIABLE being passed a string.
X-Git-Tag: 20090517-FFI~2215
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2778c2d5b401de632cc768c16eb4b2d227e84328;p=mit-scheme.git

Fix another problem with NAME->VARIABLE being passed a string.
---

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index e33b0cf02..dae233af5 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: fileio.scm,v 1.156 2001/12/18 21:35:09 cph Exp $
+;;; $Id: fileio.scm,v 1.157 2002/02/25 18:53:02 cph Exp $
 ;;;
-;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-2002 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -423,7 +423,7 @@ after you find a file.  If you explicitly request such a scan with
 				 (if (string-ci=? var "Eval")
 				     (evaluate val)
 				     (define-variable-local-value! buffer
-					 (name->variable var)
+					 (name->variable (intern var))
 				       (evaluate val))))))))
 		      (loop m4))))))))