From: Chris Hanson Date: Sun, 8 Mar 1998 07:31:19 +0000 (+0000) Subject: Fix thinko in previous change. X-Git-Tag: 20090517-FFI~4831 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e315e8f587efeecfaab93e4404dc22fdb0ada037;p=mit-scheme.git Fix thinko in previous change. --- 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?