aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2010-03-22 10:41:00 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2010-03-22 10:41:00 +0200
commitae7f9b02e9ad941a0c3e68787268fe651a043c33 (patch)
tree2154659ad59e6be01b1d1b9899523b21626337d5
parent31bda1c64c9171a043875d2537dae338d7ab66e3 (diff)
downloadgamma-ae7f9b02e9ad941a0c3e68787268fe651a043c33.tar.gz
gamma-ae7f9b02e9ad941a0c3e68787268fe651a043c33.tar.bz2
Bugfix
* src/expat.sci (xml-make-parser): More fixes (returned
-rw-r--r--src/expat.sci12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/expat.sci b/src/expat.sci
index a9449c3..0826c28 100644
--- a/src/expat.sci
+++ b/src/expat.sci
@@ -45,12 +45,12 @@ include(BUILDDIR/gamma-expat.inc)
(if (string? (car rest))
(let ((encoding (car rest))
(rest (cdr rest)))
- (cond
- ((null? rest)
- (parser-setup (list encoding) rest))
- ((char? (car rest))
- (parser-setup (list encoding (car rest))
- (cdr rest)))))
+ (if (and (not (null? rest)) (char? (car rest)))
+ (parser-setup (list encoding (car rest))
+ (cdr rest))
+
+ (parser-setup (list encoding) rest)))
+
(parser-setup '() rest)))))
(define (xml-parse-more parser input)

Return to:

Send suggestions and report system problems to the System administrator.