From 93f5e9d219b57d42cbb0ef3c717632e628163e3e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 28 Aug 1991 14:47:04 +0000 Subject: [PATCH] Fix bug in last edit. --- v7/src/edwin/comint.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm index bfd60c0ec..063ff1bff 100644 --- a/v7/src/edwin/comint.scm +++ b/v7/src/edwin/comint.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.7 1991/08/28 13:39:37 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.8 1991/08/28 14:47:04 jinx Exp $ Copyright (c) 1991 Massachusetts Institute of Technology @@ -45,14 +45,14 @@ license should have been included along with this file. |# (define (make-comint mode name program . switches) (let ((buffer (if (pair? name) - (create-buffer (string-append "*" (car name) "*")) + (new-buffer (string-append "*" (car name) "*")) (find-or-create-buffer (string-append "*" name "*"))))) (if (let ((process (get-buffer-process buffer))) (or (not process) (not (process-runnable? process)))) (begin (set-buffer-major-mode! buffer mode) - (comint-exec buffer name program switches))) + (comint-exec buffer (buffer-name buffer) program switches))) buffer)) (define (comint-exec buffer name program switches) -- 2.25.1