add nb_current and fix nb_delete.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1801 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2007-02-21 16:50:51 +00:00
parent bd8cca2bde
commit 621e47f8a4
4 changed files with 45 additions and 5 deletions

View File

@@ -808,3 +808,10 @@ nth_instance(X,Y,Z) :-
prolog_current_frame(Env) :-
Env is '$env'.
nb_current(GlobalVariable, Val) :-
var(GlobalVariable), !,
'$nb_current'(GlobalVariable),
nb_getval(GlobalVariable, Val).
nb_current(GlobalVariable, Val) :-
nb_getval(GlobalVariable, Val).