fix debugging info (obs from Jose Santos).
This commit is contained in:
@@ -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).
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user