From 3933fd273a46a0f720e2eb6a1ea72877e354de9c Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 28 Aug 1991 13:39:37 +0000 Subject: [PATCH] Allow new buffers to be created by passing a pair as the name argument to make-comint. --- v7/src/edwin/comint.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm index 535267017..bfd60c0ec 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.6 1991/05/21 02:05:45 cph Exp $ +$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 $ Copyright (c) 1991 Massachusetts Institute of Technology @@ -43,7 +43,10 @@ license should have been included along with this file. |# (declare (usual-integrations)) (define (make-comint mode name program . switches) - (let ((buffer (find-or-create-buffer (string-append "*" name "*")))) + (let ((buffer + (if (pair? name) + (create-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)))) -- 2.25.1