From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Aug 2000 02:36:23 +0000 (+0000)
Subject: Fix bug: directory node wasn't being correctly recorded in the info
X-Git-Tag: 20090517-FFI~3302
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3d5c025bf9a655e7ebf7ca3ddcc7ac48db43985b;p=mit-scheme.git

Fix bug: directory node wasn't being correctly recorded in the info
history, causing the l command to fail.
---

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index b28df5ebb..a0b97ce78 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: info.scm,v 1.134 2000/03/23 03:19:13 cph Exp $
+;;; $Id: info.scm,v 1.135 2000/08/07 02:36:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -759,7 +759,7 @@ The name may be an abbreviation of the reference name."
       (for-each (lambda (submenu)
 		  (find-dir-node/insert-menu-items buffer submenu))
 		submenus))
-    (car pathnames)))
+    "dir"))
 
 (define (find-dir-node-files buffer)
   (let loop ((directories (buffer-directory-list buffer)) (pathnames '()))