From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Thu, 12 Aug 1993 08:33:36 +0000 (+0000)
Subject: Changed the order of loading xcom so that joe's debugger would be
X-Git-Tag: 20090517-FFI~8080
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2874f4c60ba04d4211702df0fab55e065a58bbec;p=mit-scheme.git

Changed the order of loading xcom so that joe's debugger would be
happy.
---

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index bf25e9710..7b6b7f6e8 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.40 1993/08/10 06:35:46 cph Exp $
+$Id: edwin.ldr,v 1.41 1993/08/12 08:33:36 jawilson Exp $
 
 Copyright (c) 1989-93 Massachusetts Institute of Technology
 
@@ -177,6 +177,9 @@ MIT in each case. |#
 	(load "comint" environment)
 	(load "compile" environment)
 	(load "dabbrev" environment)
+	
+	(load "xcom" (->environment '(EDWIN X-COMMANDS)))
+	;; debug depends on x-button1-down defined in xcom
 	(load "debug" (->environment '(EDWIN DEBUGGER)))
 
 	(let ((env (->environment '(EDWIN DIRED))))
@@ -214,7 +217,6 @@ MIT in each case. |#
 	(load "texcom" environment)
 	(load "wincom" environment)
 	(load "scrcom" environment)
-	(load "xcom" (->environment '(EDWIN X-COMMANDS)))
 	(load-set '("modefs" "xmodef") environment)
 	(load "rename" environment)
 	(load "loadef" environment)