From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 1995 05:38:47 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~5852
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0dc86774a4f4610c1d890f1e749736234acdb1cb;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 3fb6c216c..cdbae7e4f 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dos.scm,v 1.29 1995/10/25 02:19:50 cph Exp $
+;;;	$Id: dos.scm,v 1.30 1995/10/25 05:38:47 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-95 Massachusetts Institute of Technology
 ;;;
@@ -140,10 +140,10 @@
   ;;   'DIRECTORY means FILE is a directory and a full listing is expected.
   ;;   'FILE means FILE itself should be listed, and not its contents.
   ;; SWITCHES are ignored.
-  (generate-dired-listing (if (eq? type 'DIRECTORY)
-			      (pathname-as-directory file)
-			      file)
-			  mark))
+  (generate-dired-listing! (if (eq? type 'DIRECTORY)
+			       (pathname-as-directory file)
+			       file)
+			   mark))
 
 (define (generate-dired-listing! pathname point)
   (let ((files (directory-read pathname)))