From fe096a4e34e107004c2865409662dfd9cc07ded8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 Nov 1993 19:11:49 +0000
Subject: [PATCH] Call SAVE-SOME-BUFFERS as part of CHECKPOINT-FLOPPY.

---
 v7/src/6001/floppy.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))
-- 
2.25.1