rounding function was incorrect (ulrich's #180)

This commit is contained in:
Vitor Santos Costa 2010-10-08 11:02:56 +01:00
parent 3cfe5c74d5
commit f40ba3e6db
1 changed files with 2 additions and 2 deletions

View File

@ -938,8 +938,8 @@ yap_flag(dialect,yap).
'$transl_to_arity'(X1,X) :- X1 < 0, !, X = unbounded.
'$transl_to_arity'(X,X).
'$transl_to_rounding_function'(0,down).
'$transl_to_rounding_function'(1,toward_zero).
'$transl_to_rounding_function'(0,toward_zero).
'$transl_to_rounding_function'(1,down).
'$transl_to_trl_types'(0,chars).
'$transl_to_trl_types'(1,codes).