incorporate suggestion by triska
This commit is contained in:
committed by
Bennet Bleßmann
parent
746d4fd106
commit
ff546a0f9a
@@ -101,8 +101,7 @@ valid_env(environment(E)) :- (
|
||||
).
|
||||
|
||||
valid_env_([]).
|
||||
valid_env_([E| ES]) :-
|
||||
E =.. [=, N, V],
|
||||
valid_env_([N=V|ES]) :-
|
||||
must_be(chars, N),
|
||||
must_be(chars, V),
|
||||
valid_env_(ES).
|
||||
|
||||
Reference in New Issue
Block a user