avoid error handling overhead.
This commit is contained in:
parent
4855c3460a
commit
5b0874be32
@ -695,7 +695,7 @@ nth_instance(Key,Index,T,Ref) :-
|
|||||||
|
|
||||||
nb_current(GlobalVariable, Val) :-
|
nb_current(GlobalVariable, Val) :-
|
||||||
'$nb_current'(GlobalVariable),
|
'$nb_current'(GlobalVariable),
|
||||||
nb_getval(GlobalVariable, Val).
|
'$nb_getval'(GlobalVariable, Val, _).
|
||||||
|
|
||||||
'$getval_exception'(GlobalVariable, Val, Caller) :-
|
'$getval_exception'(GlobalVariable, Val, Caller) :-
|
||||||
user:exception(undefined_global_variable, GlobalVariable, Action),
|
user:exception(undefined_global_variable, GlobalVariable, Action),
|
||||||
|
Reference in New Issue
Block a user