From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 11 Jun 2006 03:06:23 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~1014
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9ff8ab98772425fb6f17470af501f65dd4bc6336;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 27f0a5bc7..ff0a41e3b 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dired.scm,v 1.197 2006/06/10 06:09:37 cph Exp $
+$Id: dired.scm,v 1.198 2006/06/11 03:06:23 cph Exp $
 
 Copyright 1987,1989,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1999,2000,2001 Massachusetts Institute of Technology
@@ -879,7 +879,9 @@ Actions controlled by variables list-directory-brief-switches
     (rexp-compile
      (rexp-sequence (rexp* (rexp-any-char))
 		    (rexp-alternatives
-		     (rexp-sequence digit (string->char-set "BkKMGTPEZY"))
+		     (rexp-sequence digit
+				    (rexp-optional
+				     (string->char-set "BkKMGTPEZY")))
 		     ")")
 		    s+
 		    (rexp-alternatives western