--- rpl/src/instructions_s1.c 2019/10/31 15:40:19 1.114 +++ rpl/src/instructions_s1.c 2021/03/13 12:50:47 1.118 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.32 - Copyright (C) 1989-2019 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.33 + Copyright (C) 1989-2021 Dr. BERTRAND Joël This file is part of RPL/2. @@ -3667,13 +3667,14 @@ instruction_syseval(struct_processus *s_ .instruction_courante; /* - * S'il y a des guillemets en début de chaîne, il y en - * a aussi à la fin de la chaîne et on les ôte. Les - * guillements intermédiaires sont protégés par une + * S'il y a des guillemets ou une apostrophe en début de + * chaîne, il y en * a aussi à la fin de la chaîne et on les + * ôte. Les guillements intermédiaires sont protégés par une * séquence d'échappement qui est enlevée. */ - if ((*s_etat_processus).instruction_courante[0] == '"') + if (((*s_etat_processus).instruction_courante[0] == '"') || + ((*s_etat_processus).instruction_courante[0] == '\'')) { if (strlen((*s_etat_processus).instruction_courante) >= 2) {