From cf8f1a90f928d68437ecf5f6a16a2cb3e474e9c5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 31 Oct 1997 22:16:24 +0000 Subject: [PATCH] * boot-9.scm (inherit-print-state): Moved definition to the neighborhood of the record code. --- ice-9/boot-9.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 11668b05f..b487e30a7 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -321,6 +321,12 @@ ;; ;; It should print OBJECT to PORT. +(define (inherit-print-state old-port new-port) + (if (pair? old-port) + (cons (if (pair? new-port) (car new-port) new-port) + (cdr old-port)) + new-port)) + ;; 0: type-name, 1: fields (define record-type-vtable (make-vtable-vtable "prpr" 0 @@ -2852,9 +2858,3 @@ (define-module (guile)) (append! %load-path (cons "." ())) - -(define (inherit-print-state old-port new-port) - (if (pair? old-port) - (cons (if (pair? new-port) (car new-port) new-port) - (cdr old-port)) - new-port))