diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-01-30 13:55:59 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-01-30 13:55:59 +0100 |
| commit | 1260fd0b2c4ce1d0d7e7b17df924c245f67f9058 (patch) | |
| tree | 82c3b91b52d4fe9a9199cee8f898d2cea702b768 /module/sxml | |
| parent | 7e0f26eb0d5a9316daad680f62168beffd050632 (diff) | |
| download | guile-1260fd0b2c4ce1d0d7e7b17df924c245f67f9058.tar.gz | |
quick fix to ssax.scm
* module/sxml/ssax.scm: Fix previous commit.
Diffstat (limited to 'module/sxml')
| -rw-r--r-- | module/sxml/ssax.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/sxml/ssax.scm b/module/sxml/ssax.scm index cf94b715a..f750c934a 100644 --- a/module/sxml/ssax.scm +++ b/module/sxml/ssax.scm @@ -182,9 +182,10 @@ (define (ssax:warn port . args) (with-output-to-port (current-ssax-error-port) - (display ";;; SSAX warning: ") - (for-each display args) - (newline))) + (lambda () + (display ";;; SSAX warning: ") + (for-each display args) + (newline)))) (define (ucscode->string codepoint) (string (integer->char codepoint))) |