1 |
/* Copyright (C) 1995-1999,2000,2001, 2002 Free Software Foundation, Inc. |
/* Copyright (C) 1995-1999,2000,2001, 2002, 2003 Free Software Foundation, Inc. |
2 |
* |
* |
3 |
* This library is free software; you can redistribute it and/or |
* This library is free software; you can redistribute it and/or |
4 |
* modify it under the terms of the GNU Lesser General Public |
* modify it under the terms of the GNU Lesser General Public |
657 |
SCM handle = SCM_BOOL_F; /* Will GC protect the handle whilst unlinked */ |
SCM handle = SCM_BOOL_F; /* Will GC protect the handle whilst unlinked */ |
658 |
SCM pstate_scm; |
SCM pstate_scm; |
659 |
scm_print_state *pstate; |
scm_print_state *pstate; |
660 |
|
int old_writingp; |
661 |
|
|
662 |
/* 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 |
663 |
print-state. */ |
print-state. */ |
683 |
} |
} |
684 |
|
|
685 |
pstate = SCM_PRINT_STATE (pstate_scm); |
pstate = SCM_PRINT_STATE (pstate_scm); |
686 |
|
old_writingp = pstate->writingp; |
687 |
pstate->writingp = writingp; |
pstate->writingp = writingp; |
688 |
scm_iprin1 (exp, port, pstate); |
scm_iprin1 (exp, port, pstate); |
689 |
|
pstate->writingp = old_writingp; |
690 |
|
|
691 |
/* Return print state to pool if it has been created above and |
/* Return print state to pool if it has been created above and |
692 |
hasn't escaped to Scheme. */ |
hasn't escaped to Scheme. */ |