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

bad chars?

Browse Source
This commit is contained in:
Vitor Santos Costa 2018-12-11 08:16:54 +00:00
parent 13a6cc8ece
commit afe5780fc1
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/python/swig/prolog/yapi.yap
View File

@ -78,13 +78,17 @@ python_query( Caller, String ) :-
maplist(in_dict(Caller.answer), Bindings). maplist(in_dict(Caller.answer), Bindings).
in_dict(Dict, var([V0,V|Vs])) :- !, in_dict(Dict, var([V0,V|Vs])) :-
Dict[V] := V0, !,
atom_string(V0,S0),
atom_string(V,S),
Dict[S] := S0,
in_dict( Dict, var([V0|Vs])). in_dict( Dict, var([V0|Vs])).
in_dict(_Dict, var([_],_G)) :- !. in_dict(Dict, nonvar([V0|Vs], T)) :-
in_dict(Dict, nonvar([V0|Vs],G)) :- !, !,
term_to_atom(G,A,_), atom_string(V0,S0),
Dict[V0] := A, atom_string(T,S),
in_dict( Dict, nonvar(Vs, G) ). Dict[S0] := S,
in_dict(_Dict, nonvar([],_G)) :- !. in_dict( Dict, var([V0|Vs])).
in_dict(_, _) in_dict(_,_).