fix number_atom broken behaviour when atom was bound.

This commit is contained in:
Vitor Santos Costa 2014-10-09 10:42:15 +01:00
parent 5d84ce03ca
commit cbc579310a

View File

@ -526,7 +526,7 @@ p_number_atom( USES_REGS1 )
} else {
/* ARG1 unbound */
Term t = Deref(ARG2);
Term tf = Yap_ListToNumber(t PASS_REGS);
Term tf = Yap_AtomToNumber(t PASS_REGS);
if (tf)
return Yap_unify( ARG1, tf );
}