fix number_codes/2 typo

This commit is contained in:
Vítor Santos Costa 2013-12-09 22:14:17 +00:00
parent a430a1c349
commit 05bfe8a15b
1 changed files with 1 additions and 1 deletions

View File

@ -434,7 +434,7 @@ p_number_codes( USES_REGS1 )
Term t = Deref(ARG2);
Term tf = Yap_ListToNumber(t PASS_REGS);
if (tf)
return Yap_unify( ARG2, tf );
return Yap_unify( ARG1, tf );
}
/* error handling */
if (LOCAL_Error_TYPE && Yap_HandleError( "number_codes/2" )) {