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

names are now atoms, not sequences of codes

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-02-04 22:55:34 +00:00
parent 2cb0f298a8
commit cf3c62f4b4
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
pl/checker.yap
View File

@@ -192,7 +192,7 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
'$ground_vars'(V2L). '$ground_vars'(V2L).
'$sv_list'([],[]). '$sv_list'([],[]).
'$sv_list'([_|V].T,L) :- nonvar(V), !, '$sv_list'([(_=V)|T],L) :- nonvar(V), !,
'$sv_list'(T,L). '$sv_list'(T,L).
'$sv_list'([(X=_)|T], L) :- '$sv_list'([(X=_)|T], L) :-
atom_concat('_',_,X), !, atom_concat('_',_,X), !,

5
pl/messages.yap
View File

@@ -423,8 +423,9 @@ object_name(unsigned_byte, 'unsigned byte').
object_name(unsigned_char, 'unsigned char'). object_name(unsigned_char, 'unsigned char').
object_name(variable, 'unbound variable'). object_name(variable, 'unbound variable').
svs([H]) --> !, H. svs([A]) --> !, { atom_codes(A, H) }, H.
svs([H|L]) --> svs([A|L]) -->
{ atom_codes(A, H) },
H, H,
", ", ", ",
svs(L). svs(L).