From: Joe Bank <edu/mit/csail/zurich/jbank>
Date: Thu, 2 Sep 1993 22:33:29 +0000 (+0000)
Subject: Changed a few things so that it will work on windows.
X-Git-Tag: 20090517-FFI~7910
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ed387be66698a823d75b8ad39a8dc74ef8d7c5d;p=mit-scheme.git

Changed a few things so that it will work on windows.
Now will only create screen if on a unix system.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index a64a836ec..c954ccf02 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.15 1993/08/25 15:14:19 jbank Exp $
+;;;	$Id: debug.scm,v 1.16 1993/09/02 22:33:29 jbank Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -927,7 +927,9 @@ Set this variable to #F to disable this abbreviation."
   "#T means start a new-screen whenever the debugger is invoked.  
 #F means continue in same screen.  
 'ASK means ask user whether to start new-screen."
-  #T
+  (if (equal? microcode-id/operating-system-name "unix")
+      #T
+      #F)
   boolean-or-ask?)
 
 (define-variable debugger-prompt-geometry?
@@ -1308,12 +1310,11 @@ it has been renamed, it will not be deleted automatically."
 
 
 (define-key 'continuation-browser #\p 'quit-with-restart-value)
+(if (equal? microcode-id/operating-system-name "unix")
+    (begin (define-key 'continuation-browser down 'browser-next-line)
+	   (define-key 'continuation-browser up 'browser-previous-line)
+	   (define-key 'continuation-browser x-button1-down 'debugger-mouse-select-bline)))
 
-(define-key 'continuation-browser down 'browser-next-line)
-
-(define-key 'continuation-browser up 'browser-previous-line)
-
-(define-key 'continuation-browser x-button1-down 'debugger-mouse-select-bline)
 (define-key 'continuation-browser #\c-n 'browser-next-line)
 (define-key 'continuation-browser #\c-p 'browser-previous-line)
 (define-key 'continuation-browser #\? 'describe-mode)
@@ -1700,12 +1701,11 @@ to keep one of these buffers, simply rename it using `M-x rename-buffer':
 once it has been renamed, it will not be deleted automatically.")
 
 
+(if (equal? microcode-id/operating-system-name "unix")
+    (begin (define-key 'environment-browser down 'browser-next-line)
+	   (define-key 'environment-browser up 'browser-previous-line)
+	   (define-key 'environment-browser x-button1-down 'debugger-mouse-select-bline)))
 
-(define-key 'environment-browser down 'browser-next-line)
-
-(define-key 'environment-browser up 'browser-previous-line)
-
-(define-key 'environment-browser x-button1-down 'debugger-mouse-select-bline)
 (define-key 'environment-browser #\c-n 'browser-next-line)
 (define-key 'environment-browser #\c-p 'browser-previous-line)
 (define-key 'environment-browser #\? 'describe-mode)