From e315e8f587efeecfaab93e4404dc22fdb0ada037 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Mar 1998 07:31:19 +0000
Subject: [PATCH] Fix thinko in previous change.

---
 v7/src/edwin/debug.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 46c34cac7..02839e811 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.42 1998/03/08 07:25:49 cph Exp $
+;;;	$Id: debug.scm,v 1.43 1998/03/08 07:31:19 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-98 Massachusetts Institute of Technology
 ;;;
@@ -987,11 +987,6 @@ The buffer below describes the current subproblem or reduction.
 
 ;;;; Debugger Entry
 
-(define-command browse-continuation
-  "Invoke the continuation-browser on CONTINUATION."
-  "XBrowse Continuation"
-  select-continuation-browser-buffer)
-
 (define (select-continuation-browser-buffer object #!optional thread)
   (set! value? #f)
   (let ((buffers (find-debugger-buffers)))
@@ -1016,6 +1011,11 @@ The buffer below describes the current subproblem or reduction.
 	     (select-buffer buffer))))
      ((ref-command browser-select-line)))))
 
+(define-command browse-continuation
+  "Invoke the continuation-browser on CONTINUATION."
+  "XBrowse Continuation"
+  select-continuation-browser-buffer)
+
 (define (make-debug-screen buffer)
   (and (multiple-screens?)
        (let ((new-screen?
-- 
2.25.1