From cd740c5c9cf50c683954782bf831366c395762b8 Mon Sep 17 00:00:00 2001
From: Yann Salmon <nomail@yannsalmon.fr>
Date: Mon, 3 Sep 2018 10:35:42 +0200
Subject: [PATCH] =?UTF-8?q?ajout=20d'un=20mot=20cl=C3=A9=20pour=20caml?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 latex/yslistings.tex | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/latex/yslistings.tex b/latex/yslistings.tex
index 133351f..8b00b7b 100644
--- a/latex/yslistings.tex
+++ b/latex/yslistings.tex
@@ -35,15 +35,18 @@
 \lstdefinelanguage{mypython}[]{python}
 { morekeywords={yield, as}}
 
+\lstdefinelanguage{mycaml}[Objective]{caml}
+{ morekeywords={raise}}
+
 \def\|{\lstinline[language=mypython, name=inlinepython]|} %|
-\def\°{\lstinline[language={[Objective]caml}, name=inlinecaml]°} %°
+\def\°{\lstinline[language={mycaml}, name=inlinecaml]°} %°
 \def\§{\lstinline[language=mysql, name=inlinesql]§} %§
 \def\>{\lstinline[language=mybash, name=inlineshell]>} %>
 \lstnewenvironment{lstpython}[1][]{\leavevmode\lstset{language=mypython, frame=single, frameround=tttt, #1}}{}
-\lstnewenvironment{lstcaml}[1][]{\leavevmode\lstset{language=[Objective]caml, frame=single, frameround=tttt, #1}}{}
+\lstnewenvironment{lstcaml}[1][]{\leavevmode\lstset{language=mycaml, frame=single, frameround=tttt, #1}}{}
 \lstnewenvironment{lstsql}[1][]{\leavevmode\lstset{language=mysql, frame=single, frameround=tttt, #1}}{}
 \lstnewenvironment{lstshell}[1][]{\leavevmode\lstset{language=mybash, frame=single, frameround=tttt, #1}}{}
-\newcommand\lstinputcaml[1][]{\leavevmode\lstinputlisting[language={[Objective]caml}, frame=single, frameround=tttt, rangeprefix=(***\ , rangesuffix=\ ***), #1]}
+\newcommand\lstinputcaml[1][]{\leavevmode\lstinputlisting[language={mycaml}, frame=single, frameround=tttt, rangeprefix=(***\ , rangesuffix=\ ***), #1]}
 \newcommand\lstinputpython[1][]{\leavevmode\lstinputlisting[language={mypython}, frame=single, frameround=tttt, rangeprefix=\#\#\#\ , rangesuffix=\ \#\#\#, #1]}
 \newcommand\lstinputsql[1][]{\leavevmode\lstinputlisting[language={mysql}, frame=single, frameround=tttt, rangeprefix=---\ , rangesuffix=\ ---, #1]}