From 5239735a8e0b81347b4fc3d6fc71b3ddfde0cd63 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Dec 1993 10:45:08 +0000
Subject: [PATCH] Fix bug in dired-clean-directory -- roles of positive and
 negative arguments were reversed.

---
 v7/src/edwin/dired.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 6a995bdcb..8be04a8ab 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.140 1993/10/26 23:23:58 cph Exp $
+;;;	$Id: dired.scm,v 1.141 1993/12/21 10:45:08 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -466,8 +466,8 @@ negative numeric arg overrides kept-old-versions with minus the arg."
 					 ((fix:= index end))
 				       (dired-mark-1 (cdar versions) #\D)))))))
 			 (dired-numeric-backup-files))))))
-      (cond ((and argument (> argument 0)) (do-it argument new))
-	    ((and argument (< argument 0)) (do-it old (- argument)))
+      (cond ((and argument (> argument 0)) (do-it old argument))
+	    ((and argument (< argument 0)) (do-it (- argument) new))
 	    (else (do-it old new))))))
 
 (define (dired-numeric-backup-files)
@@ -479,7 +479,8 @@ negative numeric arg overrides kept-old-versions with minus the arg."
 	      (let ((region (dired-filename-region start)))
 		(if region
 		    (let ((filename (region->string region)))
-		      (let ((root.version (os/numeric-backup-filename? filename)))
+		      (let ((root.version
+			     (os/numeric-backup-filename? filename)))
 			(if root.version
 			    (let ((root (car root.version))
 				  (version.index
-- 
2.25.1