Move with-saved-configuration to Edwin proper. This will eliminate

unassigned-variable bug in LOAD-PS-COPY-FILE when running in contexts
where "floppy.scm" isn't loaded.

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 9ef64a868c36e8089e5024aedb0063525937d54f..f0e26a6c38bdecf88674feb506d973a978773dce 100644 (file)
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.22 1998/01/23 00:04:52 cph Exp $
+$Id: floppy.scm,v 1.23 1998/02/01 05:13:23 cph Exp $
 
 Copyright (c) 1992-98 Massachusetts Institute of Technology
 
@@ -262,23 +262,6 @@ Answer \"no\" if you want to return to the editor without logging out.")
                                     default-floppy-abort-handler
                                     thunk))))))))))
 
-(define (with-saved-configuration thunk)
-  (let ((screen (selected-screen)))
-    (let ((configuration (screen-window-configuration screen)))
-      (fluid-let ((restore-saved-continuation? true))
-       (dynamic-wind
-        (lambda () unspecific)
-        thunk
-        (lambda ()
-          (if restore-saved-continuation?
-              (set-screen-window-configuration! screen configuration))))))))
-
-(define (dont-restore-saved-configuration)
-  (set! restore-saved-continuation? false)
-  unspecific)
-
-(define restore-saved-continuation?)
-
 (define (append-string string)
   (insert-string string (buffer-end (current-buffer))))