--- rpl/src/interface_cas.cpp	2018/12/21 10:56:22	1.58
+++ rpl/src/interface_cas.cpp	2020/06/04 09:35:35	1.65
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.29
-  Copyright (C) 1989-2018 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -21,6 +21,7 @@
 
 
 #ifdef RPLCAS
+#	define RPLCXX
 
 // Giac inclut <semaphore.h> et définit sem_t. Or l'émulation
 // des IPCS POSIX requiert une redéfinition de sem_t.
@@ -132,8 +133,8 @@ conversion_rpl_vers_cas(struct_processus
 
 			liberation(s_etat_processus, *s_objet);
 
-			if (depilement(s_etat_processus, &(s_etat_processus
-					->l_base_pile), s_objet) == d_erreur)
+			if (depilement(s_etat_processus, &(s_etat_processus->l_base_pile),
+					s_objet) == d_erreur)
 			{
 				return(NULL);
 			}
@@ -463,6 +464,9 @@ interface_cas(struct_processus *s_etat_p
 	contexte = reinterpret_cast<giac::context *>(
 			s_etat_processus->contexte_cas);
 
+	giac::angle_radian((test_cfsf(s_etat_processus, 60) == d_vrai) ? 1 : 0,
+			contexte);
+
 	if ((s_etat_processus->erreur_execution != d_ex) ||
 			(s_etat_processus->erreur_systeme != d_es))
 	{