jumping

2018-04-10 00:54:34 +01:00
parent fb5564f9d1
commit 470323da5c
5 changed files with 28 additions and 42 deletions
--- a/pl/messages.yap
+++ b/pl/messages.yap
@@ -302,7 +302,7 @@ addinfo( Desc) -->
 	 '$query_exception'(errorGoal, Desc, Call)
 	}
  ;
-  [[h|p(M,Na,Ar,File,FilePos)g)](_)]]
+  [h|p(M,Na,Ar,File,FilePos)]
 ->
    []
 ).
@@ -805,7 +805,7 @@ print_lines( S, Prefixes, Key) -->
 	!,
 	{ nl(S),
 	  Prefixes = [PrefixS - Cmds|More],
-	  format(S, PrefixS, []Cmds)
+	  format(S, PrefixS, Cmds)
 	},
 	{
 	   More == []