mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 06:50:21 +02:00
Code Activity

* boot-9.scm (inherit-print-state): New experimental function.

Browse source
This commit is contained in:
Marius Vollmer 1997-10-02 14:23:50 +00:00
parent cd721def20
commit ae335672cb
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2891,3 +2891,8 @@
(define-module (guile)) (define-module (guile))
(append! %load-path (cons "." ())) (append! %load-path (cons "." ()))
(define (inherit-print-state old-port new-port)
(if (pair? old-port)
(cons new-port (cdr old-port))
new-port))