diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix mix swi/sicstus

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-02-02 20:45:29 +00:00
parent 51a5fdfbd7
commit 8ab12ec680
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/atts.yap
View File

@ -49,8 +49,6 @@ new_attribute(Na/Ar) :-
store_new_module(Mod,Ar,Position), store_new_module(Mod,Ar,Position),
assertz(existing_attribute(S,Mod,Ar,Position)). assertz(existing_attribute(S,Mod,Ar,Position)).
existing_attribute(delay(_),prolog,1,2).
store_new_module(Mod,Ar,ArgPosition) :- store_new_module(Mod,Ar,ArgPosition) :-
( (
retract(attributed_module(Mod,Position,_)) retract(attributed_module(Mod,Position,_))
@ -58,7 +56,7 @@ store_new_module(Mod,Ar,ArgPosition) :-
true true
; ;
retract(modules_with_attributes(Mods)), 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, ArgPosition is Position+1,
( Ar == 0 -> NOfAtts is Position+1 ; NOfAtts is Position+Ar), ( Ar == 0 -> NOfAtts is Position+1 ; NOfAtts is Position+Ar),