fix bad formatting.

2014-10-05 10:22:03 +01:00 · 2014-10-05 10:22:03 +01:00 · b30d0bbdaf
commit b30d0bbdaf
parent 8345bf3e24
1 changed files with 1 additions and 1 deletions
--- a/pl/listing.yap
+++ b/pl/listing.yap
@ -158,7 +158,7 @@ listing(Stream, [MV|MVs]) :- !,
    ->
      format( Stream, ':- ~q.~n', [PredDef])
    ;
-      format( Stream, '~:- ~q:~q.~n', [M,PredDef])
+      format( Stream, ':- ~q:~q.~n', [M,PredDef])
     ),
     fail.
 '$list_clauses'(Stream, M, Pred) :-