From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Wed, 12 Sep 1990 19:56:55 +0000 (+0000)
Subject: delete-screen doesn't yet work.
X-Git-Tag: 20090517-FFI~11190
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee151085ebf31afe44010139d2fd019afc249878;p=mit-scheme.git

delete-screen doesn't yet work.
---

diff --git a/v7/src/edwin/scrcom.scm b/v7/src/edwin/scrcom.scm
index 0b9be7c88..d663b0923 100644
--- a/v7/src/edwin/scrcom.scm
+++ b/v7/src/edwin/scrcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/scrcom.scm,v 1.1 1990/08/31 20:12:53 markf Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/scrcom.scm,v 1.2 1990/09/12 19:56:55 markf Exp $
 ;;;
 ;;;	Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 ;;;
@@ -51,9 +51,13 @@
 then a message is diplayed and the screen is not deleted."
   ()
   (lambda ()
+    (message "Not yet implemented")
+#|
     (if (> (length (all-screens)) 1)
 	(delete-current-screen!)
-	(message "Can't delete the last screen."))))
+	(message "Can't delete the last screen."))
+|#
+    ))
 
 (define-command create-new-screen
   "Create a new screen with the current buffer in it."