names are now atoms, not sequences of codes

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

View File

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

View File

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