I believe there's a portability bug in SSAX.scm testing part:
((a-tag (make-xml-token 'START (string->symbol "BR")))
(a-ref (make-xml-token 'ENTITY-REF (string->symbol "lt")))
(eof-object (with-input-from-string "" read))
1. I've a little problem because I haven't with-input-from-string in Kawa, but that's not the point
2. R5RS provides an eof-object? predicate, not a eof-object constant, and says "The precise set of
end of objects will vary among implementations, [...]".
I.e. I believe code to be in error which invokes
(equal? token expected-token)) ; where expect-token is the above eof-object
because it may not work in the presence of multiple EOF objects.
[This is not a problem in Kawa which has a unique such object: #!eof]
I believe this fraction of the testing code ought to be rewritten in a way to use the R5RS
eof-object? predicate instead of the above test:
(if this-is-an-eof-test (eof-object? token) (equal? token expected-token))
Log in to post a comment.