fix debugging info (obs from Jose Santos).

This commit is contained in:
Vitor Santos Costa 2009-11-23 23:43:12 +00:00
parent 9f27ab5ab3
commit 1136597f6f

View File

@ -178,7 +178,7 @@ find_free(Index, Size, Keys, NewIndex) :-
hash_f(Key, Size, Index, F) :-
var(F), !,
term_hash(Key,-1,Size,Index), writeln(Key:Index).
term_hash(Key,-1,Size,Index).
hash_f(Key, Size, Index, F) :-
call(F, Key, Size, Index).