/[guile]/guile/guile-core/libguile/print.c
ViewVC logotype

Diff of /guile/guile-core/libguile/print.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.128.2.6 by mvo, Mon Jun 17 23:22:33 2002 UTC revision 1.128.2.7 by mdj, Mon Apr 14 14:51:09 2003 UTC
# Line 1  Line 1 
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
# Line 679  scm_prin1 (SCM exp, SCM port, int writin Line 679  scm_prin1 (SCM exp, SCM port, int writin
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. */
# Line 704  scm_prin1 (SCM exp, SCM port, int writin Line 705  scm_prin1 (SCM exp, SCM port, int writin
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. */

Legend:
Removed from v.1.128.2.6  
changed lines
  Added in v.1.128.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26