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 b28df5ebb203c79528e3564fb58398b4f335f2c4..a0b97ce785b401b35c79367c1b79fe091ee22d04 100644 (file)
--- 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 '()))