mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

current-ssax-error-port is a parameter

Browse source 
* module/sxml/ssax.scm (current-ssax-error-port): Change to be a
  parameter.
This commit is contained in:
Andy Wingo 2013-01-27 21:53:49 +01:00
parent 25645a0ac9
commit 2b6fcf5b1f
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/sxml/ssax.scm
View file

@ -1,6 +1,6 @@
;;;; (sxml ssax) -- the SSAX parser
;;;;
;;;; Copyright (C) 2009, 2010,2012 Free Software Foundation, Inc.
;;;; Copyright (C) 2009, 2010,2012,2013 Free Software Foundation, Inc.
;;;; Modified 2004 by Andy Wingo <wingo at pobox dot com>.
;;;; Written 2001,2002,2003,2004 by Oleg Kiselyov <oleg at pobox dot com> as SSAX.scm.
;;;;
@ -170,12 +170,14 @@
(define ascii->char integer->char)
(define char->ascii char->integer)
(define *current-ssax-error-port* (make-fluid))
(define (current-ssax-error-port)
(fluid-ref *current-ssax-error-port*))
(define current-ssax-error-port
(make-parameter (current-error-port)))
(define *current-ssax-error-port*
(parameter-fluid current-ssax-error-port))
(define (with-ssax-error-to-port port thunk)
(with-fluids ((*current-ssax-error-port* port))
(parameterize ((current-ssax-error-port port))
(thunk)))
(define (ssax:warn port msg . args)