allow the option to have priorities above 1200

2015-12-15 08:38:56 +00:00
parent c6f1c328f8
commit edb6189512
13 changed files with 37 additions and 37 deletions
--- a/BEAM/toeam.c
+++ b/BEAM/toeam.c
@@ -742,10 +742,10 @@ void ShowCode_new2(int op, int new1,CELL new4)
 	switch (ch = *f++)
 	  {
 	case '1':
-	        Yap_plwrite(MkIntTerm(new1), NULL, 30, 0, 1200);
+	        Yap_plwrite(MkIntTerm(new1), NULL, 30, 0, GLOBAL_MaxPriority);
 		break;
 	case '4':
-	        Yap_plwrite(MkIntTerm(new4), NULL, 20, 0, 1200);
+	        Yap_plwrite(MkIntTerm(new4), NULL, 20, 0, GLOBAL_MaxPriority);
 		break;
 	  default:
 	    Yap_DebugPutc (LOCAL_c_error_stream,'%');