Index: doc/LaTeXmacros/lstlang.sty
===================================================================
--- doc/LaTeXmacros/lstlang.sty	(revision 75d789c11cb725d1bc4d528dbee9dd7ca666a2e4)
+++ doc/LaTeXmacros/lstlang.sty	(revision 56a8eb800f6b55356f6ae8dadefa2a22129648d6)
@@ -8,6 +8,6 @@
 %% Created On       : Sat May 13 16:34:42 2017
 %% Last Modified By : Peter A. Buhr
-%% Last Modified On : Sat Mar  9 17:03:58 2024
-%% Update Count     : 41
+%% Last Modified On : Tue Mar 12 17:29:58 2024
+%% Update Count     : 42
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
@@ -99,13 +99,15 @@
 }
 
-\lstdefinelanguage{pseudo}{
-	morekeywords={string,uint,int,bool,float},
-	sensitive=true,
-	morecomment=[l]{//},
-	morecomment=[s]{/*}{*/},
-	morestring=[b]',
-	morestring=[b]",
-	morestring=[s]{`}{`},
-}
+\lstdefinelanguage{OCaml}%
+	{morekeywords={
+  		and, as, asr, assert, begin, class, constraint do, done, downto, else, end, exception, external,
+		false, for, fun, function, functor, if, in, include, inherit, initializer, land, lazy, let, lor, lsl, lsr, lxor,
+		match, method, mod, module, open, mutable, new, nonrec, object, of, open, open!, or, private, rec,
+		sig, struct, then, to, true, try, type, val, virtual, when, while, with
+	},
+   sensitive,%
+   morecomment=[n]{(*}{*)},%
+   morestring=[d]"%
+}[keywords,comments,strings]%
 
 % CFA programming language, based on ANSI C (with some gcc additions)
@@ -135,4 +137,15 @@
 }
 
+% pseudo code
+\lstdefinelanguage{pseudo}{
+	morekeywords={string,uint,int,bool,float},
+	sensitive=true,
+	morecomment=[l]{//},
+	morecomment=[s]{/*}{*/},
+	morestring=[b]',
+	morestring=[b]",
+	morestring=[s]{`}{`},
+}
+
 % Local Variables: %
 % tab-width: 4 %