/[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.148 by mvo, Sat Apr 5 19:10:22 2003 UTC revision 1.149 by mdj, Sat Apr 5 20:45:17 2003 UTC
# Line 1  Line 1 
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
# Line 657  scm_prin1 (SCM exp, SCM port, int writin Line 657  scm_prin1 (SCM exp, SCM port, int writin
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. */
# Line 682  scm_prin1 (SCM exp, SCM port, int writin Line 683  scm_prin1 (SCM exp, SCM port, int writin
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. */

Legend:
Removed from v.1.148  
changed lines
  Added in v.1.149

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