From f8876e16760d08baed6d9c06fceef794be085c4b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 10 Feb 1992 12:02:48 +0000 Subject: [PATCH] Add new procedure EXIT-SCHEME to first exit the editor and then kill Scheme. This is a workaround for a problem that occurs when using termcap and calling %EXIT from within the editor: the terminal settings don't seem to be getting properly restored. --- v7/src/edwin/editor.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm index 3f70a0e1b..6fdced2b5 100644 --- a/v7/src/edwin/editor.scm +++ b/v7/src/edwin/editor.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.212 1992/02/08 15:23:31 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.213 1992/02/10 12:02:48 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology ;;; @@ -324,6 +324,9 @@ This does not affect editor errors or evaluation errors." (define (exit-editor) (within-continuation editor-abort reset-editor)) + +(define (exit-scheme) + (within-continuation editor-abort %exit)) (define (^G-signal) (let ((handler *^G-interrupt-handler*)) -- 2.25.1