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

quick fix to ssax.scm

Browse source 
* module/sxml/ssax.scm: Fix previous commit.
This commit is contained in:
Andy Wingo 2013-01-30 13:55:59 +01:00
parent 7e0f26eb0d
commit 1260fd0b2c
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/sxml/ssax.scm
View file

@ -182,9 +182,10 @@
(define (ssax:warn port . args) (define (ssax:warn port . args)
(with-output-to-port (current-ssax-error-port) (with-output-to-port (current-ssax-error-port)
(display ";;; SSAX warning: ") (lambda ()
(for-each display args) (display ";;; SSAX warning: ")
(newline))) (for-each display args)
(newline))))
(define (ucscode->string codepoint) (define (ucscode->string codepoint)
(string (integer->char codepoint))) (string (integer->char codepoint)))