From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 1995 03:49:29 +0000 (+0000)
Subject: Merge common parts of DOS/WIN32 and OS2 file-name customization.
X-Git-Tag: 20090517-FFI~5854
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9e03bc45fe8479623522aa9e6d1a14ae7174a023;p=mit-scheme.git

Merge common parts of DOS/WIN32 and OS2 file-name customization.
---

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index e6cee4a64..dcc0e7c52 100644
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dosfile.scm,v 1.3 1995/10/25 03:26:46 cph Exp $
+;;;	$Id: dosfile.scm,v 1.4 1995/10/25 03:49:29 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -64,6 +64,11 @@ Includes the new backup.  Must be > 0."
   2
   (lambda (n) (and (exact-integer? n) (> n 0))))
 
+(define dos/backup-suffixes
+  (cons "~"
+	(map (lambda (type) (string-append "~." type))
+	     dos/encoding-pathname-types)))
+
 (define-variable completion-ignored-extensions
   "Completion ignores filenames ending in any string in this list."
   (append (list ".bin" ".com" ".ext"
@@ -226,11 +231,6 @@ Includes the new backup.  Must be > 0."
 		(cons (substring filename root-start root-end)
 		      version))))))
 
-(define dos/backup-suffixes
-  (cons "~"
-	(map (lambda (type) (string-append "~." type))
-	     dos/encoding-pathname-types)))
-
 (define (os/auto-save-filename? filename)
   (or (re-match-string-forward (re-compile-pattern "^#.+#$" #f)
 			       #f