From 9a5871611ba17b771972355bb8193c4d6b064904 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 20 Oct 1993 21:22:23 +0000 Subject: [PATCH] Allow parent CMDL to override the port used for spawning children. --- v7/src/runtime/rep.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm index 0772f8f9a..58e31f206 100644 --- a/v7/src/runtime/rep.scm +++ b/v7/src/runtime/rep.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rep.scm,v 14.37 1993/10/16 10:10:47 cph Exp $ +$Id: rep.scm,v 14.38 1993/10/20 21:22:23 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -105,7 +105,14 @@ MIT in each case. |# (define (push-cmdl driver state operations) (let ((parent (nearest-cmdl))) - (make-cmdl parent (cmdl/port parent) driver state operations))) + (make-cmdl parent + (or (let ((operation (cmdl/local-operation parent 'CHILD-PORT))) + (and operation + (operation parent))) + (cmdl/port parent)) + driver + state + operations))) (define (cmdl/base cmdl) (let ((parent (cmdl/parent cmdl))) -- 2.25.1