use seq//1

diff --git a/src/lib/time.pl b/src/lib/time.pl
index 13df2e42ac2f665c67bcfa18d06a58c609dc1d9a..fd76d3b2077adbb27fcb9d6f4cd883fa7414c4b1 100644 (file)
--- a/src/lib/time.pl
+++ b/src/lib/time.pl
@@ -59,15 +59,12 @@ format_time([], _) --> [].
 format_time(['%','%'|Fs], T) --> !, "%", format_time(Fs, T).
 format_time(['%',Spec|Fs], T) --> !,
         (   { member(Spec=Value, T) } ->
-            list(Value)
+            seq(Value)
         ;   { domain_error(time_specifier, Spec, format_time//2) }
         ),
         format_time(Fs, T).
 format_time([F|Fs], T) --> [F], format_time(Fs, T).
 
-list([]) --> [].
-list([L|Ls]) --> [L], list(Ls).
-
 max_sleep_time(0xfffffffffffffbff).
 
 sleep(T) :-