mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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 ;;;; (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>. ;;;; 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. ;;;; 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 ascii->char integer->char)
(define char->ascii char->integer) (define char->ascii char->integer)
(define *current-ssax-error-port* (make-fluid)) (define current-ssax-error-port
(define (current-ssax-error-port) (make-parameter (current-error-port)))
(fluid-ref *current-ssax-error-port*))
(define *current-ssax-error-port*
(parameter-fluid current-ssax-error-port))
(define (with-ssax-error-to-port port thunk) (define (with-ssax-error-to-port port thunk)
(with-fluids ((*current-ssax-error-port* port)) (parameterize ((current-ssax-error-port port))
(thunk))) (thunk)))
(define (ssax:warn port msg . args) (define (ssax:warn port msg . args)