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
2008-04-01 20:47:57 +00:00
parent a8fe6a668e
commit 5459617266
1 changed files with 1 additions and 1 deletions
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -420,7 +420,7 @@ true :- true.
 	 ;
 	  nb_getval('$assert_all',on)
 	 ->
-	  functor(G,N,A),
+	  functor(H,N,A),
 	  '$dynamic'(N/A,Mod),
 	  '$assertz_dynamic'(L,G,G0,Mod)
 	 ;