From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Feb 2002 05:05:26 +0000 (+0000)
Subject: Fix bug: name->foo procedures no longer accept string arguments.
X-Git-Tag: 20090517-FFI~2240
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15c88a17ed57d59a592481fe1957ea206f4b511c;p=mit-scheme.git

Fix bug: name->foo procedures no longer accept string arguments.
---

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index ac28ad700..4ec01e0d5 100644
--- a/v7/src/edwin/hlpcom.scm
+++ b/v7/src/edwin/hlpcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: hlpcom.scm,v 1.121 2000/10/26 19:25:18 cph Exp $
+;;; $Id: hlpcom.scm,v 1.122 2002/02/14 05:05:26 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -378,7 +378,7 @@ If you want VALUE to be a string, you must surround it with doublequotes."
 			   (substring-find-next-char string start end char)))
 		      (if (not terminator)
 			  (error "Missing terminator character:" char))
-		      (procedure (substring string start terminator)
+		      (procedure (intern (substring string start terminator))
 				 (fix:+ terminator 1)
 				 comtabs))))))
 	 (subst-key