diff options
-rw-r--r-- | src/expat.sci | 12 |
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) |