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) :- hash_f(Key, Size, Index, F) :-
var(F), !, var(F), !,
term_hash(Key,-1,Size,Index), writeln(Key:Index). term_hash(Key,-1,Size,Index).
hash_f(Key, Size, Index, F) :- hash_f(Key, Size, Index, F) :-
call(F, Key, Size, Index). call(F, Key, Size, Index).