1 |
/* Copyright (C) 1995-1999,2000,2001 Free Software Foundation, Inc. |
/* Copyright (C) 1995-1999,2000,2001, 2003 Free Software Foundation, Inc. |
2 |
* |
* |
3 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
4 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
679 |
SCM handle = SCM_BOOL_F; /* Will GC protect the handle whilst unlinked */ |
SCM handle = SCM_BOOL_F; /* Will GC protect the handle whilst unlinked */ |
680 |
SCM pstate_scm; |
SCM pstate_scm; |
681 |
scm_print_state *pstate; |
scm_print_state *pstate; |
682 |
|
int old_writingp; |
683 |
|
|
684 |
/* If PORT is a print-state/port pair, use that. Else create a new |
/* If PORT is a print-state/port pair, use that. Else create a new |
685 |
print-state. */ |
print-state. */ |
705 |
} |
} |
706 |
|
|
707 |
pstate = SCM_PRINT_STATE (pstate_scm); |
pstate = SCM_PRINT_STATE (pstate_scm); |
708 |
|
old_writingp = pstate->writingp; |
709 |
pstate->writingp = writingp; |
pstate->writingp = writingp; |
710 |
scm_iprin1 (exp, port, pstate); |
scm_iprin1 (exp, port, pstate); |
711 |
|
pstate->writingp = old_writingp; |
712 |
|
|
713 |
/* Return print state to pool if it has been created above and |
/* Return print state to pool if it has been created above and |
714 |
hasn't escaped to Scheme. */ |
hasn't escaped to Scheme. */ |