listings: add language for PrologInt

my-listings.sty

@@ -78,6 +78,14 @@
   mathescape=true
 }
 
+\lstdefinelanguage{PrologInt}{
+  morekeywords={Redo, Call, Fatal, Error},
+  keywordstyle=\color{black}\bfseries,
+  stringstyle=\color{black},
+  commentstyle=\color{black},
+  identifierstyle=\color{black},
+}
+
 \input{jml-junit-listings}
 
 % alias definition