diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix number_atom broken behaviour when atom was bound.

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-10-09 10:42:15 +01:00
parent 5d84ce03ca
commit cbc579310a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/atomic.c
View File

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