From 8ab12ec680e07c1c763afbe58e64cac9daf220a4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Wed, 2 Feb 2011 20:45:29 +0000 Subject: [PATCH] fix mix swi/sicstus --- library/atts.yap | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/library/atts.yap b/library/atts.yap index eccd31aa6..07e361e3f 100644 --- a/library/atts.yap +++ b/library/atts.yap @@ -49,8 +49,6 @@ new_attribute(Na/Ar) :- store_new_module(Mod,Ar,Position), assertz(existing_attribute(S,Mod,Ar,Position)). -existing_attribute(delay(_),prolog,1,2). - store_new_module(Mod,Ar,ArgPosition) :- ( retract(attributed_module(Mod,Position,_)) @@ -58,7 +56,7 @@ store_new_module(Mod,Ar,ArgPosition) :- true ; retract(modules_with_attributes(Mods)), - assert(modules_with_attributes([Mod|Mods])), Position = 1 + assert(modules_with_attributes([Mod|Mods])), Position = 2 ), ArgPosition is Position+1, ( Ar == 0 -> NOfAtts is Position+1 ; NOfAtts is Position+Ar),