mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 14:20:26 +02:00
Code Activity

* boot-9.scm (inherit-print-state): If NEW-PORT contains a

Browse source 
print-state, throw it away.
This commit is contained in:
Marius Vollmer 1997-10-06 13:19:47 +00:00
parent 4851dc578d
commit 1c11d900c0
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/boot-9.scm
View file

@ -2841,5 +2841,6 @@
(define (inherit-print-state old-port new-port) (define (inherit-print-state old-port new-port)
(if (pair? old-port) (if (pair? old-port)
(cons new-port (cdr old-port)) (cons (if (pair? new-port) (car new-port) new-port)
(cdr old-port))
new-port)) new-port))