fix number_atom broken behaviour when atom was bound.
This commit is contained in:
parent
5d84ce03ca
commit
cbc579310a
@ -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 );
|
||||
}
|
||||
|
Reference in New Issue
Block a user