Changeset 5271

Show
Ignore:
Timestamp:
01/30/10 10:14:56 (7 months ago)
Author:
pmoura
Message:

Added support for the proprietary directive block/1 to the config files of SICStus Prolog.

Location:
trunk/configs
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • trunk/configs/sicstus3.pl

    r5264 r5271  
    1212%  configuration file for SICStus Prolog 3.8 and later versions 
    1313% 
    14 %  last updated: January 28, 2010 
     14%  last updated: January 30, 2010 
    1515% 
    1616%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
    … …  
    589589 
    590590'$lgt_rewrite_and_copy_pl_directive'(block(Heads), block(THeads)) :- 
    591     '$lgt_tr_predicate_heads'(Heads, THeads). 
     591    '$lgt_tr_predicate_heads'(Heads, THeads, '?'). 
    592592 
    593593'$lgt_rewrite_and_copy_pl_directive'(load_foreign_resource(Resource), initialization(load_foreign_resource(Resource))) :- 

  • trunk/configs/sicstus4.pl

    r5264 r5271  
    1212%  configuration file for SICStus Prolog 4.0.3 and later versions 
    1313% 
    14 %  last updated: January 28, 2010 
     14%  last updated: January 30, 2010 
    1515% 
    1616%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
    … …  
    555555 
    556556'$lgt_rewrite_and_copy_pl_directive'(block(Heads), block(THeads)) :- 
    557     '$lgt_tr_predicate_heads'(Heads, THeads). 
     557    '$lgt_tr_predicate_heads'(Heads, THeads, '?'). 
    558558 
    559559'$lgt_rewrite_and_copy_pl_directive'(load_foreign_resource(Resource), initialization(load_foreign_resource(Resource))) :-