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

* boot-9.scm (inherit-print-state): Moved definition to the

Browse source 
neighborhood of the record code.
This commit is contained in:
Marius Vollmer 1997-10-31 22:16:24 +00:00
parent 43085eebce
commit cf8f1a90f9
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -321,6 +321,12 @@
;; ;;
;; It should print OBJECT to PORT. ;; 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 ;; 0: type-name, 1: fields
(define record-type-vtable (define record-type-vtable
(make-vtable-vtable "prpr" 0 (make-vtable-vtable "prpr" 0
@ -2852,9 +2858,3 @@
(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 (if (pair? new-port) (car new-port) new-port)
(cdr old-port))
new-port))