From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Oct 1998 00:31:17 +0000 (+0000)
Subject: Make sure that only namestrings are recorded in INFO-HISTORY.
X-Git-Tag: 20090517-FFI~4737
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f49fa2d4bb7eaae529951ea3e9b763f07c3b9e6a;p=mit-scheme.git

Make sure that only namestrings are recorded in INFO-HISTORY.
---

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index c6c5018ad..51b4ef5af 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: info.scm,v 1.130 1998/03/11 22:06:53 cph Exp $
+;;;	$Id: info.scm,v 1.131 1998/10/14 00:31:17 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -989,7 +989,7 @@ The name may be an abbreviation of the reference name."
 
 (define (record-node file node point)
   (set-variable! info-history
-		 (cons (vector file node point)
+		 (cons (vector (->namestring file) node point)
 		       (ref-variable info-history))))
 
 (define (node-start start end)