42aabce1bb
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1973 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
23 lines
748 B
Prolog
23 lines
748 B
Prolog
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%
|
|
% Logtalk - Open source object-oriented logic programming language
|
|
% Release 2.30.7
|
|
%
|
|
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
|
%
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
|
:- compile('$LOGTALKUSER/configs/sicstus4.config').
|
|
:- asserta((
|
|
user:goal_expansion(CallWitArgs, Layout, _, Call, Layout) :-
|
|
CallWitArgs =.. [call_with_args| Args],
|
|
Call =.. [call| Args])).
|
|
:- compile('$LOGTALKHOME/compiler/logtalk.pl').
|
|
:- retract((
|
|
user:goal_expansion(CallWitArgs, Layout, _, Call, Layout) :-
|
|
CallWitArgs =.. [call_with_args| Args],
|
|
Call =.. [call| Args])).
|
|
:- compile('$LOGTALKUSER/libpaths/libpaths.pl').
|