diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-22 10:41:00 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-22 10:41:00 +0200 |
commit | ae7f9b02e9ad941a0c3e68787268fe651a043c33 (patch) | |
tree | 2154659ad59e6be01b1d1b9899523b21626337d5 | |
parent | 31bda1c64c9171a043875d2537dae338d7ab66e3 (diff) | |
download | gamma-ae7f9b02e9ad941a0c3e68787268fe651a043c33.tar.gz gamma-ae7f9b02e9ad941a0c3e68787268fe651a043c33.tar.bz2 |
Bugfix
* src/expat.sci (xml-make-parser): More fixes (returned
-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 @@ -47,8 +47,8 @@ include(BUILDDIR/gamma-expat.inc) (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))))) |