From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 Nov 1993 19:11:49 +0000 (+0000)
Subject: Call SAVE-SOME-BUFFERS as part of CHECKPOINT-FLOPPY.
X-Git-Tag: 20090517-FFI~7627
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fe096a4e34e107004c2865409662dfd9cc07ded8;p=mit-scheme.git

Call SAVE-SOME-BUFFERS as part of CHECKPOINT-FLOPPY.
---

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 7448fb0bf..a49a1dd89 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.14 1993/01/25 00:45:45 nick Exp $
+$Id: floppy.scm,v 1.15 1993/11/02 19:11:49 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -420,6 +420,7 @@ then answer \"yes\" to the prompt below.")
 	(wait-for-user)))))
 
 (define (checkpoint-floppy)
+  (save-some-buffers #t #f)
   (append-string "Copying files from working directory to floppy.\n")
   (let* ((working-directory (read-working-directory))
 	 (floppy-directory (read-floppy-directory)))