From ae335672cb3e20c298fe4249faef9addb8bc2079 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 2 Oct 1997 14:23:50 +0000 Subject: [PATCH] * boot-9.scm (inherit-print-state): New experimental function. --- ice-9/boot-9.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 185bdfeb9..83f1015bc 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -2891,3 +2891,8 @@ (define-module (guile)) (append! %load-path (cons "." ())) + +(define (inherit-print-state old-port new-port) + (if (pair? old-port) + (cons new-port (cdr old-port)) + new-port))