From mboxrd@z Thu Jan  1 00:00:00 1970
From: mdj@sourceware.cygnus.com
To: guile-cvs@sourceware.cygnus.com
Subject: guile/guile-core/libguile print.c
Date: Mon, 23 Aug 1999 19:11:00 -0000
Message-id: <19990824021154.30301.qmail@egcs.cygnus.com>
X-SW-Source: 1999-q3/msg00356.html
List-Id: <guile-cvs.sourceware.org>

CVSROOT:	/cvs/guile
Module name:	guile
Changes by:	mdj@egcs.cygnus.com	99/08/23 19:11:54

Modified files:
	guile-core/libguile: print.c 

Log message:
	* print.c (scm_get_print_state): New procedure: Given an output
	port, return the print state associated to it in the current print
	chain, if one exists;
	(scm_port_with_print_state): New procedure: Associate a
	print-state with a port.
	(scm_valid_oport_value_p): Use SCM_PORT_WITH_PS_P;
	(scm_printer_apply): Wrap port and pstate as a smob;
	(print_state_printer): Removed.