names are now atoms, not sequences of codes
This commit is contained in:
parent
2cb0f298a8
commit
cf3c62f4b4
@ -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), !,
|
||||
|
@ -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).
|
||||
|
Reference in New Issue
Block a user