From 5b0874be3280b16225b4dfeaf898c014f65eab5a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Thu, 15 Sep 2011 15:50:41 +0100 Subject: [PATCH] avoid error handling overhead. --- pl/utils.yap | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pl/utils.yap b/pl/utils.yap index 90bcc3fbf..a6688898b 100644 --- a/pl/utils.yap +++ b/pl/utils.yap @@ -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),