stupid bug in assert_all (thanks to Jose Santos).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2186 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-04-01 20:47:57 +00:00
parent a8fe6a668e
commit 5459617266

View File

@ -420,7 +420,7 @@ true :- true.
; ;
nb_getval('$assert_all',on) nb_getval('$assert_all',on)
-> ->
functor(G,N,A), functor(H,N,A),
'$dynamic'(N/A,Mod), '$dynamic'(N/A,Mod),
'$assertz_dynamic'(L,G,G0,Mod) '$assertz_dynamic'(L,G,G0,Mod)
; ;