avoid error handling overhead.

This commit is contained in:
Vítor Santos Costa 2011-09-15 15:50:41 +01:00
parent 4855c3460a
commit 5b0874be32

View File

@ -695,7 +695,7 @@ nth_instance(Key,Index,T,Ref) :-
nb_current(GlobalVariable, Val) :-
'$nb_current'(GlobalVariable),
nb_getval(GlobalVariable, Val).
'$nb_getval'(GlobalVariable, Val, _).
'$getval_exception'(GlobalVariable, Val, Caller) :-
user:exception(undefined_global_variable, GlobalVariable, Action),