Changed so that when foreign function returns 0 then the corresponding
xsb predicate will fail.
Authored by: kifer 1999-04-30
Parent: [r691]
Child: [r693]